Public Sub Send()
Dim username As String
username = "username=" + "youremail@address.com"
Dim hash As String
hash = "&hash=" + "Your API hash"
Dim message As String
message = "&message=" + "This is your message"
Dim sender As String
sender = "&sender=" + "WEBADD"
Dim numbers As String
numbers = "&numbers=" + "917735838811"
    
Set MyRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
MyRequest.Open "GET", "http://sms.webadd/api2/send/?" + username + hash + message + sender + numbers
MyRequest.Send
MsgBox MyRequest.ResponseText
End Sub