Sub postXMLHTTP()
'Const URL$ = "http://rts.micex.ru/ru/csearch.aspx"
Const URL$ = "http://project-modelino.com/french-phonetic-transcription-converter.php?site_language=russian"
'Const sFind$ = "Газпром"
Const sFind$ = "etre"
Dim rq, param
Dim s$, k&

Set rq = CreateObject("Msxml2.XMLHTTP")
param = "sstr=" & sFind

rq.Open "POST", URL, False
rq.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
rq.Send param

If rq.readystate = 4 And rq.Status = 200 Then
    s = rq.responsetext
    MsgInNote (s)
'Exit Sub
    k = InStr(1, s, "Результаты", vbTextCompare)
    If k > 0 Then
        MsgBox Mid$(s, k + 54, 19), vbInformation, "Искали: '" & sFind & "'"
    Else
        MsgBox "Ну не шмогла я ...", vbInformation, "Искали: '" & sFind & "'"
    End If

Else
    MsgBox "Пичалька", vbExclamation, "Страница: " & URL
End If

Set rq = Nothing

End Sub

Public Sub MsgInNote(Y)
Dim PathNFile As String
PathNFile = "C:\MsgInNote.txt"
 Set fso = CreateObject("Scripting.FileSystemObject")
 Set ts = fso.CreateTextFile(PathNFile, True, True)
          ts.Write Y    ' данные в файл 
         ts.Close
Shell "NOTEPAD.EXE C:\MsgInNote.txt", vbNormalFocus
'e = StartOfFile(PathNFile)
End Sub

<h2>Фонетическая транскрипция (международный фонетический алфавит):</h2>




<!-- InstanceEndEditable -->

<h2>Фонетическая транскрипция (международный фонетический алфавит):</h2>
 
<p>[etre]</p><p><strong>Время, затраченное на конвертирование (в секундах):</strong> 0.</p>
 
 
<!-- InstanceEndEditable -->

param = "sstr=" & sFind

param = "initial_text=" & sFind