Private Sub Form_Load()
 
    Dim F As Integer
    Dim sInhalt As String
    Dim sFileName As String
        sFileName = "C:\Index.htm"  ' Pfad zur Index.htm Datei
 
    ' Datei "Index.htm" in Variable "sInhalt" einlesen
    If Dir$(sFileName, vbNormal) <> "" Then
        F = FreeFile
        Open sFileName For Binary As #F
            sInhalt = Space$(LOF(F))
            Get #F, , sInhalt
        Close #F
    End If
 
    ' Die Postition von "IP[1]'" ermitteln
    Dim lngStartPos As Long
        lngStartPos = InStr(1, sInhalt, "IP[1]'") + 6
 
    ' Die Position von "';" ermitteln (WICHTIG: in den Startparameter von InStr _
      natürlich die Position von "IP[1]'" übergeben
    ' Wenn man bei Zeichen1 anfangen würde könnte man auch ein anderes '; _
    finden...
    Dim lngLength As Long
        lngLength = InStr(lngStartPos, sInhalt, "';") - lngStartPos
 
    ' Die Textstelle mit Mid rausschreiben aber nur wenn lngStartPos und 
    ' lngLength größer als Null sind
    Dim strIP As String
        If lngStartPos > 0 And lngLength > 0 Then strIP = Mid(sInhalt, _
          lngStartPos, lngLength)
        MsgBox strIP
 
End Sub

Mit freundlichen Gr??en,
Andy G.