Textzeilen import, mit Filter

Ich habe eine Version gefunden die alles einliest.

Eine Inputputbox soll die Artikelnummer abfragen.

Was muss geändert werden?
Gruss UWE

Sub AusTextDatei()
Dim introw As Integer, intcol As Integer
Dim strtxt As String
Range("A1").CurrentRegion.ClearContents
Open "c:\temp\Test.txt" For Input As #1
Do Until EOF(1)
introw = introw + 1
intcol = 0
Line Input #1, strtxt
Do Until InStr(strtxt, ";") = 0
intcol = intcol + 1
Cells(introw, intcol) = Left(strtxt, InStr(strtxt, ";") - 1)
strtxt = Right(strtxt, Len(strtxt) - InStr(strtxt, ";"))
Loop
Cells(introw, intcol + 1) = strtxt
Loop
Close
MsgBox "Habe die Daten aus c:\temp\text.txt ausgelesen!"
End Sub