VB读取TXT资料中的指定列并计算

VB读取TXT文件中的指定列并计算
00 0000000000001 159.0000 159.0000 2.0000 0 00  
00 0000000000001 159.0000 159.0000 1.0000 0 00  
00 0000000000001 159.0000 159.0000 5.0000 0 00  
这是和TXT文件，行数不固定，如何用VB读出第四列 159.000乘第五列2.00，并把每一行这个乘积相加，比如159*2+159*1+159*5,急啊，那位大侠能帮我写一下
------解决方案--------------------
Public Function 判断文件是否存在(ByVal file As String) As Boolean
1   On Error Resume Next
2   If (GetAttr(file) And vbDirectory) = False Then 判断文件是否存在 = True
3   If Err Then 判断文件是否存在 = False: Err.Clear
End Function

Function 读取文本文件3(ByVal fileName As String) As String
Dim handle As Integer
' 判断文件存在性
If Not 判断文件是否存在(fileName) Then Exit Function
' 以binary模式打开文件
handle = FreeFile
Open fileName$ For Binary As #handle
' 读取内容，关闭文件
读取文本文件3 = Space$(LOF(handle))
Get #handle, , 读取文本文件3
Close #handle
End Function

Private Sub Command1_Click()
Dim zongshu As Long, tmpstr As String, tmpstrsplit, strsplit
tmpstr = 读取文本文件3("y:\xt.txt")
tmpstrsplit = Split(tmpstr, vbCrLf)
For i = 0 To UBound(tmpstrsplit)
 strsplit = Split(tmpstrsplit(i), " ")
 If UBound(strsplit) > 4 Then
  zongshu = zongshu + Val(strsplit(3)) * Val(strsplit(4))
 End If
Next
MsgBox zongshu
End Sub