Поиск минимального и среднего для каждой строки в файле - VB

Формулировка задачи:

Здравствуйте! Из текстового файла надо было считать данные и посчитать среднее и минимальное каждой строки. А потом вывести эти данные в другой т. файл. Ср и мин она считает, но вместе с той частью кода, где надо выводить в новый файл полученные данные выделяет строку (Do Until EOF(F)) Исходные данные: 448,341,541 337,242,616 448,148,790 367,543,853 Код:

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
Dim F, F1 As Integer
Dim Str As String
Dim a()
Dim m
Dim i As Integer
Dim s1 As Integer
Dim min As Integer
 
F = FreeFile
Open "D:\U.txt" For Input As #F
 
Do Until EOF(F)
    min = 9999
    Line Input #F, Str
    m = Split(Str, ","):
    ReDim a(UBound(m))
        For i = 0 To UBound(m):
            a(i) = Val(m(i))
            If a(i) < min Then min = a(i)
        Next i
        s1 = (a(0) + a(1) + a(2)) / 3
        
Close #F
 
F1 = FreeFile
Open "D:U1.txt" For Output As #F1
Print #F1, Г±Г°ГҐГ¤Г*ГҐГҐ; s1, Г¬ГЁГ*ГЁГ¬Г*Г«ГјГ*Г®ГҐ; min
Close #F1
 
Loop
 
End Sub

Почему это происходит?

Решение задачи: «Поиск минимального и среднего для каждой строки в файле»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
   Dim F   As Integer, F1 As Integer
   Dim Str As String, a(), m, i As Integer
   Dim s1 As Integer, min As Integer
   F = FreeFile
   Open "D:\U.txt" For Input As #F
     F1 = FreeFile
     Open "D:\U1.txt" For Output As #F1
         Do Until EOF(F)
              min = 9999
              Line Input #F, Str
              m = Split(Str, ","):
              ReDim a(UBound(m))
              For i = 0 To UBound(m):
                    a(i) = Val(m(i))
                    If a(i) < min Then min = a(i)
              Next i
              s1 = (a(0) + a(1) + a(2)) / 3
              Print #F1, "среднее  "; s1, "минимальное  "; min
          Loop
      Close #F
    Close #F1
End Sub