Private Sub Form_Load()
    Dim sBuff As String
    Dim vFields As Variant
    Dim l As Long
 
    sBuff = ReadFile("PFAD ZU HISTORY.DAT")
    sBuff = Replace(sBuff, "\" & vbCrLf, vbNullString)
    vFields = Split(sBuff, "http:")
    sBuff = vbNullString
 
    For l = LBound(vFields) To UBound(vFields)
        If (l > 0) Then
            sBuff = sBuff & "http:" & Left$(vFields(l), InStr(vFields(l), ")") _
              - 1) & vbCrLf
        End If
    Next l
    Text1 = sBuff
End Sub
 
Function ReadFile(ByRef Path As String) As String
  Dim FileNr As Long
  If FileLen(Path) = 0 Then Exit Function
  FileNr = FreeFile
  Open Path For Binary As #FileNr
    ReadFile = Space$(LOF(FileNr))
    Get #FileNr, , ReadFile
  Close #FileNr
End Function