Private Sub Command1_Click()

Dim http As WinHttpRequest
Set http = New WinHttpRequest
http.Open "POST", "http://mysite.ru/test.php", False 
 
http.SetRequestHeader "User-Agent", "Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.9.168 Version/11.51"
http.SetRequestHeader "Accept-Charset", "UTF-8"
http.SetRequestHeader "Cache-Control", "no-cache"
http.SetRequestHeader "Keep-Alive", "300"
http.SetRequestHeader "Connection", "Keep-Alive"
http.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
 
http.Send (["data=324"])

MsgBox (http.ResponseText)
 
End Sub

http.Send (["data=324"])