Sub find()
Dim myFile As String, text As String, textline As String, A As Long, file1 As Object, test As Object

A = 2
Do							' loopet starter
Dim pospri As Integer, posvarenr As Integer, posvltnr As Integer
Range(Cells(A, 1).Address).Select 	'vælger cellen med filnavnet i
Set file1 = Selection  			'sætter file1 = filnavnet
myFile = "Min folder\" & file1		'myfile sættes = filnavnet + stien

Open myFile For Input As #1		' txt filen åbnes
Do Until EOF(1)					'Den "læser hele filen"
    Line Input #1, textline			'Den gemmer det hele som en linje
    text = text & textline
pospri = InStr(text, "Test 1")		' Den tekst som den skal finde
posvarenr = InStr(text, "Test 2")	' Den tekst som den skal finde
posvltnr = InStr(text, "Test 3") 	' Den tekst som den skal finde
Range(Cells(A, 2).Address).Value = Mid(text, pospri + 10, 4) ' teksten der placeres i kolonne b
Range(Cells(A, 3).Address).Value = Mid(text, posvarenr + 10, 8) ' teksten der placeres i kolonne c
Range(Cells(A, 4).Address).Value = Mid(text, posvltnr + 8, 10) ' teksten der placeres i kolonne D
Range(Cells(A, 5).Address) = "=CONCATENATE(RC[-2],RC[-1])"  ' teksten der placeres i kolonne e
Loop

Close #1 ' lukker filen

A = A + 1
Loop Until A = 5
End Sub