Imports System.Net
Imports System.IO
Dim client As WebClient = New WebClient
client.Headers.Add("user-agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; .NET CLR 1.0.3705;)")
client.QueryString.Add("id", "940000000")
client.QueryString.Add("pw", "0000")
client.QueryString.Add("to", "0772823050")
client.QueryString.Add("text", "This is an example message")
Dim baseurl As String = "<a href="http://textit.biz/sendmsg/index.php" data-saferedirecturl="https://www.google.com/url?hl=en&q=http://textit.biz/sendmsg/index.php&source=gmail&ust=1533097235532000&usg=AFQjCNE-hDUCN564WGar1QN05N19LB3zAw">http://textit.biz/sendmsg/index.php</a>"
Dim data As Stream = client.OpenRead(baseurl)
Dim reader As StreamReader = New StreamReader(data)
Dim s As String = reader.ReadToEnd()
data.Close()
reader.Close()
Return

(Replace [id], [pw], with your username and password. Insert recipient number and text message  to [to] and

fields)