Dim messaggio As String = "Hello Fans!"
Dim accessToken As String = "your-access-token"
Dim url As String = "https://graph.facebook.com/546349135390552/feed?message=" & HttpUtility.UrlEncode(messaggio) & "&access_token=" & HttpUtility.UrlEncode(accessToken)
Dim richiesta = WebRequest.Create(url)
richiesta.Method = "POST"
richiesta.ContentLength = 0
Dim risposta As WebResponse = Nothing
Dim errore As Boolean = False

Try
    risposta = richiesta.GetResponse()
Catch exc As WebException
    errore = True
    risposta = exc.Response
End Try

Dim streamRisposta = risposta.GetResponseStream()
Dim contenutoRisposta As String = Nothing
Using sr As New StreamReader(streamRisposta)
    contenutoRisposta = sr.ReadToEnd()
End Using

Debug.WriteLine("La richiesta " & IIf(errore, "è andata in errore", "si è conclusa correttamente") & ": " & contenutoRisposta)