Export fra Liste til Textbox og Print?

Jeg har et mindre problem, jeg får en liste fra en DB, og overfører det til en TEXTBOX som jeg så vil skrive ud... MEN, den ødelægger mine tabs!!!!

Her er min kode:

LST_ExpansionJoints.Clear
TXT_Export.Text = ""

Dim tabs(1 To 10) As Long

tabs(1) = 75
tabs(2) = 150
tabs(3) = 175
tabs(4) = 225
tabs(5) = 275
tabs(6) = 300
tabs(7) = 350
tabs(8) = 375
tabs(9) = 450
tabs(10) = 550

SendMessage LST_WORD.hwnd, LB_SETTABSTOPS, 10, tabs(1)
SendMessage TXT_Export.hwnd, LB_SETTABSTOPS, 10, tabs(1)

Do Until rsExpansionJoints.EOF
Dim PrisPerstyk As Double

    PrisPerstyk = CDec(rsExpansionJoints("Price") * rsExpansionJoints("Quantety"))
    TotalPris = CDec(TotalPris + PrisPerstyk)
    LST_ExpansionJoints.AddItem rsExpansionJoints("ID") & vbTab & rsExpansionJoints("NemTallyNo") & vbTab & rsExpansionJoints("KompType") & vbTab & rsExpansionJoints("AxMove") & vbTab & rsExpansionJoints("LatMove") & vbTab & rsExpansionJoints("Quantety") & vbTab & rsExpansionJoints("Price") & vbTab & PrisPerstyk
    rsExpansionJoints.MoveNext
Loop

rsExpansionJoints.Close
Set rsExpansionJoints = Nothing

If LST_WORD.ListCount <= 0 Then Exit Sub

For n = 0 To LST_WORD.ListCount - 1
TXT_Export.Text = TXT_Export.Text & LST_WORD.List(n) & vbCrLf
Next n
Printer.Print TXT_Export.Text