Создать три файла вещественных чисел, каждый из которых содержит числа из

Option Explicit
Dim Ss$, s1$, s2$, s3$
Dim e$
Dim i%
 
Private Sub cmdD_Click()
    Open "0.txt" For Input As #4
    Open "1.txt" For Output As #1
    Open "2.txt" For Output As #2
    Open "3.txt" For Output As #3
    
    Do
        s1 = ""
        s2 = ""
        s3 = ""
        Line Input #4, Ss
        i = 1
        e = Mid(Ss, i, 1)
        Do While Not Zz(e)
            i = i + 1
            e = Mid(Ss, i, 1)
        Loop
        Do While Zz(e)
            s1 = s1 + e
            i = i + 1
            e = Mid(Ss, i, 1)
        Loop
       
        e = Mid(Ss, i, 1)
        Do While Not Zz(e)
            i = i + 1
            e = Mid(Ss, i, 1)
        Loop
        Do While Zz(e)
            s2 = s2 + e
            i = i + 1
            e = Mid(Ss, i, 1)
        Loop
            
        e = Mid(Ss, i, 1)
        Do While Not Zz(e)
            i = i + 1
            e = Mid(Ss, i, 1)
        Loop
        Do While Zz(e)
            s3 = s3 + e
            i = i + 1
            e = Mid(Ss, i, 1)
        Loop
        
        Print #1, s1
        Print #2, s2
        Print #3, s3
    Loop Until EOF(4)
    
    Close #4, #1, #2, #3
End Sub
 
Private Function Zz(z$) As Boolean
    Zz = False
    Select Case z
        Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", ","
            Zz = True
    End Select
End Function