Dim temp_string As String
Dim MyString As String
Dim lines As Integer

'ChDir ""
Open "d:\c-control\SOFTWARE\Schalten.vb\Solar\Info_Module.txt" For Input As #1 '
Open "d:\c-control\SOFTWARE\Schalten.vb\Solar\Module_t.txt" For Output As #2

Input #1, MyString 'first two lines
Print #2, MyString

Input #1, MyString
Print #2, MyString

Input #1, MyString
temp_string$ = Cells(6, 8).Value 'line / column
Print #2, MyString & ": " & temp_string$ 'Print to file.
lines = lines + 1

Close #1
Close #2

MsgBox "The file is created with " & lines & " lines"
 