Public Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Public Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal sURL As String, ByVal sHeaders As String, ByVal lHeadersLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Public Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer

Public Const IF_NO_CACHE_WRITE = &H4000000

Dim hInternet As Long, hSession As Long, iResult As Long
Dim urlStr as String

urlStr = "http://127.0.0.1:8800/?PhoneNumber=%2B218925001234&&Text=Test&&Sender=5353"
 
hSession = InternetOpen("vb wininet", 1, vbNullString, vbNullString, 0)

If hSession Then 

hInternet = InternetOpenUrl(hSession, UrlStr, vbNullString, 0, IF_NO_CACHE_WRITE, 0)

iResult = InternetCloseHandle(hInternet)

End If