Skriv txt i ny fil, hvis streng ikke fundet.

Hej eksperter.
Har tidligere fået god hjælp til nedstående kode, så prøver lige igen.
Min kode tjekker f.eks. 200 txt-filer og leder efter 3 linier; Motor-nr, type-nr og Cylinderantal Type.
Det virker fint nok. Men hvis Motor-nr ikke findes i en af filerne rykkes der rundt og det går galt. Kan man så få den til at skrive "Motor-nr. XXXXXXX" i min nye fil istedet ?.
Altså hvis den ikke finder strengen "Motor-Nr"..


Private Sub Command1_Click()
Dim TextLine, a, b, c, i, frafil, tilfil, midfil, frafil2, d
Dim AppPath As String
AppPath = App.Path
For i = 1 To 200 ' hvis der er 200 filer
a = "": b = "": c = ""
d = ","
'frafil = Trim(Format(i, "00000") & ".txt")
frafil = App.Path & "\" & Trim(Format(i, "00000") & ".txt")
frafil2 = Trim(Format(i, "00000") & ".txt")
midfil = Trim("ny" & frafil2)
'tilfil = App.Path & "\" & Trim("ny" & midfil)
tilfil = "test111.txt"
Open "C:\html\htmless\html\txt\source2\sourcenew\blabla.txt" For Append As #2
Open frafil For Input As #1
'Open tilfil For Output As #2
Do While Not EOF(1)  ' Loop until end of file.
  Line Input #1, TextLine
If InStr(TextLine, "MotorNr") > 0 Then
a = Right(TextLine, 20)
Write #2, a;
End If
If InStr(TextLine, "Type-Nr.") > 0 Then
b = Right(TextLine, 6) ' hvis der er 6 tegn
Write #2, b;
End If
If InStr(TextLine, "Cylinderantal Type") > 0 Then
c = Right(TextLine, 26) ' hvis der er 6 tegn
Write #2, c;
End If
Loop
Close
Next i
'Cylinderantal Type
End Sub

vh thjoe