opening, reading, manipulating a .txt file in access using VBA

Private Sub Command1_Click()
    Dim FSO As New FileSystemObject
    Dim output As String
    Dim txtline As String
    Dim txtstr As TextStream
    Dim lefttype As String
    Dim PositionOfSymbol As Integer
    Dim LengthTextString As Integer
    Dim CharRightOfSymbol As Integer
    Dim TextAfterSymbol As String
    
    Set txtstr = FSO.OpenTextFile("C:\Documents and Settings\Njones\Desktop\Order file.txt", ForReading, False)
   
    
    While Not txtstr.AtEndOfStream
    txtline = txtstr.ReadLine
    
    If Len(txtline) >= 6 Then
        lefttype = Left(txtline, 3)
        
        PositionOfSymbol = InStr(txtline, "=")
        LengthTextString = Len(txtline)
        CharRightOfSymbol = LengthTextString - PositionOfSymbol
        TextAfterSymbol = Right(txtline, CharRightOfSymbol)
     End If
     
        Select Case lefttype
        Case "MHD"
            TextAfterSymbol = " " & mid(txtline, 7, 6)
            output = output & "Message Header" & " - " & TextAfterSymbol & vbCrLf
        Case "CLO"
            TextAfterSymbol = " " & mid(txtline, 5, 13) & " - " & mid(txtline, 19, 15) & " - " & mid(txtline, 35, 13) _
             & "," & mid(txtline, 49, 27) & "," & mid(txtline, 77, 10) & ", " & mid(txtline, 89, 8)
            output = output & "Customer Location Number and Address" & " - " & TextAfterSymbol & vbCrLf
        Case "ORD"
            TextAfterSymbol = " Order No:" & mid(txtline, 9, 6) & " - Date: " & mid(txtline, 17, 6)
            output = output & "Order Number and Date" & " - " & TextAfterSymbol & vbCrLf
        Case "DIN"
            TextAfterSymbol = " " & mid(txtline, 5, 6)
            output = output & "Date in Factory" & " - " & TextAfterSymbol & vbCrLf
        Case "OLD"
            TextAfterSymbol = " " & mid(txtline, 7, 13) & "   " & mid(txtline, 23, 15)
            output = output & "Order Line" & " - " & TextAfterSymbol & vbCrLf
        Case "OTR"
            TextAfterSymbol = " " & mid(txtline, 5, 1)
            output = output & "Order Line Total" & " - " & TextAfterSymbol & vbCrLf
        Case "MTR"
            TextAfterSymbol = " " & mid(txtline, 5, 1)
            output = output & "Total lines in Block Order" & " - " & TextAfterSymbol & vbCrLf & vbCrLf
            End Select
            Wend
        Me.tb1.Value = output
        txtstr.Close
        End Sub

                                  

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54: