Dim MeinIE
        Dim READYSTATE_COMPLETE
        READYSTATE_COMPLETE = 4
 
        MeinIE = CreateObject("InternetExplorer.Application")
        Do While MeinIE.Busy
        Loop
 
        MeinIE.Visible = 0
        MeinIE.Navigate( _
          "http://ht03acc0146.swisswebaward.ch/PubliCity/sms/sms.htm")
 
        Do While MeinIE.ReadyState <> 4
 
        Loop
 
        Dim oDoc = MeinIE.Document
        oDoc.smsBooster.intlPrefix.value = "004179"
        oDoc.smsBooster.SMSTelefon.value = "0792416168"
        oDoc.smsBooster.SMSMessage.value = "Hallo"
        oDoc.smsBooster.submit()
        oDoc = Nothing
        Dim oArea = Nothing
        Dim oRng = Nothing

Die Schnittstelle ist unbekannt. 
Beschreibung: Beim Ausführen der aktuellen Webanforderung ist ein _
  unverarbeiteter Fehler aufgetreten. Überprüfen Sie die Stapelüberwachung, um _
  weitere Informationen über diesen Fehler anzuzeigen und festzustellen, wo der _
  Fehler im Code verursacht wurde. 
 
Ausnahmedetails: System.Runtime.InteropServices.COMException: Die Schnittstelle _
  ist unbekannt.
 
Quellfehler: 
 
 
Zeile 41:         MeinIE.Navigate( _
  "http://ht03acc0146.swisswebaward.ch/PubliCity/sms/sms.htm")
Zeile 42: 
Zeile 43:         Do While MeinIE.ReadyState <> 4
Zeile 44: 
Zeile 45:         Loop
 
 
Quelldatei: \\framework\wwwroot$\SMS_Send\WebForm1.aspx.vb    Zeile: 43