Open and create a text file in VB

strInputFile = "c:\input.txt"
strOutputFile = "c:\output.txt"

intInputFileNr = FreeFile
Open strInputFile For Input As #intInputFileNr
intOutputFileNr = FreeFile
Open strOutputFile For Output As #intOutputFileNr

While Not EOF(intInputFileNr)
Line Input #intInputFileNr, strGetLine
If strGetLine <> "" Then
strGetLine = Mid(strGetLine, InStr(strGetLine, Chr(9)) + 1)
strGetSplitted = Split(strGetLine, ";")

For intLocIO = 0 To UBound(strGetSplitted)
strWriteOut = strDatenSatz & ";" & strGetSplitted(intLocIO)
Print #intOutputFileNr, strWriteOut
Next

End If
Wend
Close #intOutputFileNr
Close #intInputFileNr