codice:
inserisci in un form 2 text box + un command

## IMPORTANTE ##
Includi nei Riferimenti Microsoft XML ver 3.0
è difficile che tu abbia questa Dll, dunque scaricatela dal Sito :
http://msdn.microsoft.com/downloads/...le.asp?url=/MS
DN-FILES/027/001/548/msdncompositedoc.xml

Private Sub Cmd_InviaSMS_click()

    Dim Messaggio As String
    Dim n°_Telefonico As String

    Dim ServerSMS As ServerXMLHTTP
    Set ServerSMS = CreateObject("msxml2.serverXMLHTTP")

    Messaggio = Text1.Text
    n°_Telefonico = CStr(Text2.Text)

    ServerSMS.open "GET", "Indirizzo HTTP Per L'invio degli SMS +
action=accept", False
    ServerSMS.send

    Debug.Print ServerSMS.responseText ' esito del server

    ServerSMS.open "POST", "Indirizzo HTTP Per L'invio degli SMS", False
    ServerSMS.setRequestHeader "Content-Type",
"application/x-www-form-urlencoded"
    ServerSMS.send "action=send&number=" & n°_Telefonico &
"&email=&message=" & Messaggio

    Debug.Print ServerSMS.responseText ' esito del servere


End Sub