Сложить значения из файла, записанные по одному на строку

Dim i As Double
Dim inLines() As Double = File.ReadAllLines("path")
For Each Ln As Double In inLines
   i += Ln
Next
TextBox1.Text = i.ToString()

Dim inLines() As Double = File.ReadAllLines("path")

        
        Dim Summa As Double = 0
        For i = 0 To TextBox1.Lines.Length - 1
            Summa += Val(Replace(TextBox1.Lines(i), ",", "."))
        Next i
        MsgBox(Summa)

        Dim S(200000) As String
        Dim R As New Random
        For I As Integer = 0 To 200000
            S(I) = R.NextDouble * 100
        Next
        IO.File.WriteAllLines("C:\Z.txt", S)

        Dim S() As String = IO.File.ReadAllLines("C:\Z.txt")
        Dim Summa As Double = 0
        For i = 0 To S.Length - 1
            Summa += Val(Replace(S(i), ",", "."))
        Next i
        MsgBox(Summa)

Dim s1 As IEnumerable(Of Double) = From ss In S Select Val(Replace(ss, ",", "."))
Dim Summa As Double = s1.Sum()