vb用数组读取文件内数字并相加

Private Sub Command1_Click()
Dim i As Integer, n As Integer, sum As Single
Dim a() As Single
n = 0
Open "d:\abc.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, s
ReDim Preserve a(n) As Single
If Left(s, 3) = "总金额" Then a(n) = Val(Mid(s, 5)): n = n + 1
Loop
Close #1

For i = 0 To n - 1
sum = sum + a(i)
Next

Print sum
End Sub

'可以不用数组的。读取每一行，如果此行前三个字是‘总金额’,那么读取此'行右边（字符数是长度-4）的字符并转换为整数，相加
Private Sub Command1_Click()
Dim sum As Integer
Open "d:\abc.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, s
If Left(s, 3) = "总金额" Then
sum =sum+ Cint(right(s,len(s)-4))
Loop
Close #1
Print sum
End Sub

Private Sub Command1_Click()
Dim total As Integer
Dim arr() As String
arr = Split(Text1.Text, "====================================================