Последовательный файл на ТБ или VB6

Text1.Text = Format(MyTime, "mm/dd/yyyy hh:mm:ss")
    s = CStr(MyTime)
    s1 = Left(s, 2) + "/" + Mid(s, 4, 2) + "/" + Right(s, 13)
    Text1.Text = s1

Private Sub Form_Load()
Dim dt As String, st As String, altext As String, sim As String, sum1 As String
Dim l As Integer, i As Integer, n As Integer, k As Integer
Open "D:\VB6\tmp1\jur.txt" For Input As 1
Do Until EOF(1) ' повтор до конца файла
n = 24          ' первая позиция данных в строке
For i = 1 To 4  ' пропускаем служебную инфу
Line Input #1, st
Next i
Line Input #1, st   ' читаем строку с оплатой (5 строка)
Do Until k = 9      ' читаем последовательно до 9=код "ТАБ" 
sim = Mid(st, n, 1) ' каждый символ последовательно, т.к. бывает от 1 до 9 и "ТАБ"
k = Asc(sim)          ' определяем код символа, поймать запятую и "ТАБ"
If k = 44 Then sim = ".": GoTo 1 ' замена запятой
1
n = n + 1           ' на следующую позицию в строке
sum1 = sum1 + sim   ' собираем сумму для передачи
'altext = altext + sim
Loop                ' сборка закончена
For i = 1 To 3      ' пропускаем служебную инфу
Line Input #1, st
Next
Line Input #1, st   ' читаем строку с датой (9 строка)
'   сборка даты + время
dt = Mid(st, 20, 6) + "20" + Mid(st, 26, 2) + " " + Mid(st, 29, 8)
altext = altext + dt + "    " + sum1 'для контроля в TexBox
sum1 = ""   ' обнуляем после передачи
' здесь пытался поймать что мешает собрать сумму
' для следующих строк
'l = Len(st)
'For i = 1 To l
'i = i + 1
'sim = Mid(st, i, 1)
'n = Asc(sim)
'Loop
'n = (i - 1) / 9
'altext = "Simvol №" + Str(i) + "  =  " + sim + "    COD =  " + Str(n) ' + "   " + Mid(st, i, 1)
Text1.Text = Text1 + vbCrLf + altext
'next i
Loop ' Файл закончился.
Close #1
 
End Sub

k=0     'просто в следующий шаг цикла переходит k = 9
Do Until k = 9      ' читаем последовательно до 9=код "ТАБ" 
sim = Mid(st, n, 1) ' каждый символ последовательно, т.к. бывает от 1 до 9 и "ТАБ"
k = Asc(sim)
...

Option Explicit
Private Sub Form_Load()
Dim dt As String, st As String, st1 As String, altext As String, sim As String, sum1 As String
Dim l As Integer, i As Integer, n As Integer, k As Integer
'st - сюда читаем строку
'dt - сюда собираем дату+время
'sum1 - сюда собираем сумму в формате 0.00
'sim - здесь получаем символ из конкретной позиции
'altext - собираем сторку для контроля в ТехВох
'k - здесь получаем код символа
'l - это для длины строки\файла
Open "D:\VB6\tmp1\jur.txt" For Input As 1   'For Input
Open "D:\VB6\tmp1\tstjur.txt" For Output As 2 'For Write
Do Until EOF(1) ' повтор до конца файла
         
For i = 1 To 4  ' пропускаем служебную инфу
Line Input #1, st
Next i
Line Input #1, st   ' читаем строку с оплатой
k = 0   ' обнуляем код
n = 24  ' первая позиция данных в строке
Do Until k = 9      ' читаем последовательно до "ТАБ"
sim = Mid(st, n, 1)
k = Asc(sim)
If k = 44 Then sim = ".": GoTo 1 ' замена запятой
1
n = n + 1           ' это счетчик позиции в строке
st1 = st1 + sim   ' собираем сумму для передачи
 
'altext = altext + sim
Loop                ' сборка закончена
k = 0
sum1 = st1
l = Len(st1)
sum1 = Left(sum1, (l - 1))  ' убираем ТАБ в конце строки
For i = 1 To 3      ' пропускаем служебную инфу
Line Input #1, st
Next
Line Input #1, st   ' читаем строку с датой
'   сборка даты + время
dt = Mid(st, 20, 6) + "20" + Mid(st, 26, 2) + " " + Mid(st, 29, 8)
altext = altext + dt + "    " + sum1 'для контроля в TexBox
Write #2, dt, "    ", sum1
sum1 = ""   ' обнуляем после передачи
 
' здесь пытался поймать что мешает собрать сумму
' для следующих строк
'l = Len(st)
'For i = 1 To l
'i = i + 1
'sim = Mid(st, i, 1)
'n = Asc(sim)
'Loop
'n = (i - 1) / 9
'altext = "Simvol №" + Str(i) + "  =  " + sim + "    COD =  " + Str(n) ' + "   " + Mid(st, i, 1)
Text1.Text = Text1 + vbCrLf + altext
'next i
st1 = ""
Loop ' Файл закончился.
Close #1
Close #2
End Sub

Text1.Text = Text1 + vbCrLf + dt + "    " + sum1 'для контроля в TexBox

Option Explicit
Private Sub Form_Load()
Dim dt As String, st As String, sum1 As String
'st - сюда читаем строку
'dt - сюда собираем дату+время
'sum1 - сюда собираем сумму в формате 0.00
Open App.Path + "\Obrazes.txt" For Input As 1  'For Input
Open App.Path + "\tstjur.txt" For Output As 2 'For Write
Do Until EOF(1) ' 
'On Error Resume Next
    Line Input #1, st
    st = Replace(st, ",", ".", 1, 1, vbTextCompare)
    Dim mas() As String
    If (InStr(1, st, "Чек №", 1) > 0) Then
        dt = Mid(st, 16, 6) + "20" + Mid(st, 22, 2) + Mid(st, 26, 9)
    End If
    If (InStr(1, st, "Оплата чека", vbTextCompare) > 0) Then
        mas = Split(st, vbTab, -1, vbTextCompare)
        sum1 = mas(3)
        If (IsNumeric(sum1)) Then
            Write #2, dt, "    ", sum1
            Text1.Text = Text1.Text + vbCrLf + dt + "    " + sum1  ' в TexBox
            dt = ""
            sum1 = ""
        End If
    End If
Loop ' 
Close #1
Close #2
End Sub

Option Explicit
 
Private Sub Form_Load()
Dim namein As String, nameout As String ' это для выбора файла
CommonDialog1.ShowOpen
CommonDialog1.Filter = txt And rtf ' здесь нужно показать только *.txt and *.rtf, не работает
CommonDialog1.Flags = &H400' запрет других расширений
 
namein = CommonDialog1.FileName' файл для чтения
Text1.Text = "Выбран файл  " & namein' для контроля
Open namein For Input As 1 'For Input
' здесь программа
'
close
End Sub

Option Explicit
 Private Sub Form_Load()
    Dim namein As String, nameout As String
    CommonDialog1.Filter = "Text *.txt;*.rtf|*.txt;*.rtf"
    CommonDialog1.Flags = &H400
    CommonDialog1.ShowOpen
    namein = CommonDialog1.FileName
    Text1.Text = "Выбран файл  " & namein
    Open namein For Input As 1
    ' çäåñü ïðîãðàììà
    '
    Close 1
End Sub

If (InStr(1, st, "Чек №", 1) > 0) Then

st = Replace(st, ",", ".", 1, 1, vbTextCompare)

mas = Split(st, vbTab, -1, vbTextCompare)

If (IsNumeric(sum1)) Then