can any 1 show me 1 post example plz

or plz tell am i going ryt ??

Code:
sTrData = "my post data"
Dim HttpReq As Object

    ' Create the WinHTTPRequest ActiveX Object.
    Set HttpReq = New WinHttpRequest
    
    ' Switch the mouse pointer to an hourglass while busy.
    
    ' Open an HTTP connection.
    HttpReq.Open "POST", "https://server.com" & postServer, False
    'HttpReq.SetRequestHeader "Content-Length", CStr(Len(sTrData))
    'Set request header.
    ' Send the HTTP Request.
    HttpReq.sEnd sTrData
    ' Get all response headers.
    Text1.Text = HttpReq.ResponseText