Dim MeinIE
            Dim READYSTATE_COMPLETE
            READYSTATE_COMPLETE = 4
 
            MeinIE = CreateObject("InternetExplorer.Application")
 
            Do While MeinIE.Busy
            Loop
 
            MeinIE.Visible = 0
            MeinIE.Navigate(URL)
 
            Do While MeinIE.ReadyState <> 4
            Loop
            Dim oDoc = MeinIE.Document
            oDoc.Form1.intlPrefix.value = prefix
            oDoc.Form1.SMSTelefon.value = number1
            oDoc.Form1.smsMessage.value = Text
            oDoc.Form1.submit()
 
            oDoc = Nothing
            Dim oArea = Nothing
            Dim oRng = Nothing