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.smsBooster.intlPrefix.value = vorwahl
                            oDoc.smsBooster.SMSTelefon.value = totnumber
                            oDoc.smsBooster.smsMessage.value = smstext.Text
                            oDoc.smsBooster.submit()
                            oDoc = Nothing
                            Dim oArea = Nothing
                            Dim oRng = Nothing