Que codigo tengo que cambiar para imprimir textbox

[chivass]

Uso visual basic 6, estoy tratando de imprimir varios textbox aqui les dejo el codigo para que revisen que esta mal, porque se me esta imprimiendo 2 veces el primer textbox y se junta con el segundo. que es lo que se cambia??

Código:

Private Sub cmdprint_Click()
Dim CantLineas As Single
Dim Lineas(100) As String
CantLineas = 1
For asd = 1 To Len(txtnombre.Text)
If Mid(txtnombre.Text, asd, 1) = Chr(13) Then
asd = asd + 1
CantLineas = CantLineas + 1
Else
Lineas(CantLineas) = Lineas(CantLineas) & Mid(txtnombre.Text, asd, 1)
End If
Next
For asd = 1 To CantLineas
Printer.CurrentY = 300
Printer.CurrentX = 100
Printer.Print Lineas(asd)

Next

CantLineas = 1
For asd = 1 To Len(txtdireccion.Text)
If Mid(txtdireccion.Text, asd, 1) = Chr(13) Then
asd = asd + 1
CantLineas = CantLineas + 1
Else
Lineas(CantLineas) = Lineas(CantLineas) & Mid(txtdireccion.Text, asd, 1)
End If
Next
For asd = 1 To CantLineas
Printer.CurrentY = 600
Printer.CurrentX = 100
Printer.Print Lineas(asd)

Next
Printer.EndDoc
End Sub

[chivass]

Alguien que me ayude¿