' Bestimmte Zeile aus einer Textdatei lesen
Public Function ReadLine(ByVal sFile As String, _
  Optional ByVal nLine As Long = 1) As String
 
  Dim sLines() As String
  Dim oFSO As Object
  Dim oFile As Object
 
  ' Fehlerbehandlung aktivieren
  On Error GoTo ErrHandler
 
  ' Verweis auf das FileSystemObject erstellen
  Set oFSO = CreateObject("Scripting.FileSystemObject")
 
  ' Existiert die Datei überhaupt?
  If oFSO.FileExists("C:\logbuch.txt") Then
    ' Datei öffnen
    Set oFile = oFSO.OpenTextFile("C:\logbuch.txt")
 
    ' Alles lesen und in Array zerlegen
    sLines = Split(oFile.ReadAll, vbCrLf)
 
    ' Datei schließen
    oFile.Close
 
    Select Case Sgn(nLine)
       ' (nLine > 0)
      Case 1
        ' n-te Zeile von vorne beginnend
        ReadLine = sLines(nLine - 1)
 
      ' (nLine < 0)
      Case -1
        ' n-te Zeile von hinten beginnend
        ReadLine = sLines(UBound(sLines) + nLine + 1)
    End Select
  End If
 
ErrHandler:
  ' Objekte zerstören
  Set oFile = Nothing
  Set oFSO = Nothing
End Function
 
Private Sub Command1_Click()
txtLine.Text = ReadLine("C:\logbuch.txt", txtCode)
End Sub

Option Explicit
Dim fs, codeliste, gelesen, suchcode, strCodeLeft, strCodeRight, zeile
 
set fs = CreateObject("Scripting.FileSystemObject")
set codeliste = fs.OpenTextFile("C:\codeliste.txt")
 
suchcode = InputBox("Code", "Eingabe")
 
	Do until codeliste.atEndOfStream
		codeliste.Read(1)
		zeile = codeliste.ReadLine
		strCodeLeft = Left(zeile, 3)
		strCodeRight = Mid(zeile, 4, 1000)
 
			If strCodeLeft = suchcode Then
				MsgBox zeile
				MsgBox strCodeRight
			End if
	loop
 
	codeliste.close