[VisualBasic] Logik Problem mit Speichern von daten

 Dim str As String
 Dim DateiNr As Integer
 Dim Pos As Long
 Dim Output As String

 DateiNr = FreeFile
 Open "C:\?????\???????\user.ini" For Input As DateiNr
 str = Input(LOF(DateiNr), DateiNr)
 Close #DateiNr
 
 Pos = InStr(1, str, vbCrLf)
 Do While Pos > 0
 If Mid(str, Pos - 1, 1) = 0 Then
 Output = Output & vbCr & Left(str, Pos - 5)
 End If
 str = Mid$(str, Pos + 2)
 Pos = InStr(1, str, vbCrLf)
 Loop