Dim F As Integer
Dim sLine As String
Dim sPLZ As String
Dim sFile As String
Dim lCount As Long
Dim bFound As Boolean
 
sFile = "DeineDatei.txt"
 
F = FreeFile
Open sFile For Input As #F
 
bFound = False: lCount = 0
While Not Eof(F) And Not bFound
  lCount = lCount + 1
  Line Input #F, sLine
  If Left$(sLine, 3) = "PLZ" Then
    sPLZ = Trim$(Mid$(sLine, 4))
    bFound = True
  End If
Wend
Close #F
 
If bFound Then
  MsgBox "Gefunden in Zeile " & CStr(lCount) & vbCrLf & "PLZ: " & sPLZ
End If