VB работа с файлами

Dim s As String
Dim b(5) As Single
Dim p As String
 
Private Sub CommandButton1_Click()
Open "C:\Mass.txt" For Input As 1
Open "C:\rez.txt" For Output As #2
s = Input$(LOF(1), #1)
Close 1
Dim a '()
a = Split(s, vbCrLf)
p = 1
For i = 0 To UBound(a)
  If Val(a(i)) Then p = p * Val(a(i))
  Next
Print #2, ""; p
End
End Sub