Option Explicit

Private Sub Command1_Click() ...
Dim Fnum As Long, i As Long
Dim splitArray() As String
Dim buffer As String
Fnum = FreeFile
'Hr skriver du sökvägen till din UNIXfil
Open "C:\Temp\test.sgml" For Input As #Fnum
buffer = Input$(LOF(Fnum), Fnum)
Close #Fnum
splitArray = Split(buffer, Chr$(10))
Fnum = FreeFile
'Här skriver du sökvägen till din Windows .txt fil
Open "C:\Temp\test.txt" For Output As #Fnum
For i = 0 To UBound(splitArray)
Print #Fnum, splitArray(i)
Next 'i
Close #Fnum
End Sub