Print Funktion VB6

Hallo ich habe ein Problem mit folgender Codezeile:

For i = 1 To Len(Me.txt_vsdmid)
If Asc(Mid(Me.txt_vsdmid, i, 1)) = 13 Then
Printer.CurrentX = 5
Printer.Print Mid(Me.txt_vsdmid, j, i - j)
j = i + 1
End If
Next i
Printer.Print Mid(Me.txt_vsdmid, j, i - j)

Wenn in dem Textfeld Beispielsweise 3 Werte stehen, greift nur für den ersten Wert die Printer.CurrentX Eigenschaft.

Was muss ich tun damit alles eingerückt wird?