Найти среднее значение из данных в файле data.txt

Option Explicit
 
Private Sub Form_Load()
    Dim Fnum As Integer, S As String, F As Long, oF As Long
    Dim iD As Long, V As Single, Vs As String, Ct As Long, Dat() As Single
    Fnum = FreeFile
    Open "D:\Temp\Data.txt" For Input As Fnum
    ReDim Dat(2)
    Do Until EOF(Fnum)
        Line Input #Fnum, S
        iD = 0: oF = 1
        Do
            F = InStr(oF, S, ",")
            If F Then Vs = (Mid$(S, oF, F - oF)) Else _
                  Vs = (Mid$(S, oF))
            V = Replace(Vs, ".", ","): Vs = CSng(V)
            Dat(iD) = Dat(iD) + V
            oF = F + 1: iD = iD + 1
        Loop While F
        Ct = Ct + 1
    Loop
    Close Fnum
    Dat(0) = Dat(0) / Ct: Dat(1) = Dat(1) / Ct: Dat(2) = Dat(2) / Ct
    MsgBox "1 датчик :" & Format(Dat(0), "##0.00") & vbNewLine & _
           "2 датчик :" & Format(Dat(1), "##0.00") & vbNewLine & _
           "3 датчик :" & Format(Dat(2), "##0.00")
End Sub

Sub AvrDat(fname As String)
Dim S(0 To 3) As Double
    fi% = FreeFile
    Open fname For Input As #fi%
    n# = 0
    Do While Not EOF(fi%)
       Line Input #fi%, Stri$
       Stri$ = Trim$(Stri$)
       If Len(Stri$) > 0 Then
          V = Split(Stri$, ",")
          For i% = 0 To 3
              S(i%) = S(i%) + Val(CStr(V(i%)))
          Next i%
          n# = n# + 1
       End If
     Loop
     Close #fi%
     For i% = 0 To 3
         Debug.Print "Ср-"; i% + 1; " ="; S(i%) / n#
     Next i%
End Sub