[编程交流] VBA错误

Private Sub getminval_Click()
'Get Minimum Value
Dim myfile2 As Integer
Dim dblX As Variant
Dim dblY As Variant
Dim dblZ As Variant
Dim strTextLine As String
Dim min_value As Integer
Dim min As Double
Dim arrText As Variant
Dim diffZ As Variant
Dim ivalue As Double
Dim i As Integer
myfile2 = FreeFile
Open mstrinpfile For Input As #myfile2
i = 0
Do While Not EOF(myfile2) = True
   Line Input #myfile2, strTextLine
   arrText = Split(strTextLine, ",")
    
   dblX(i) = arrText(0)
   dblY(i) = arrText(1)
   dblZ(i) = arrText(2)
   
   Input #myfile2, dblX(i), dblY(i), dblZ(i)
   
   ivalue = 1000
   
   diffZ = dblZ - ivalue
   
   If diffZ < 0 Then
   min = dblZ(i)
   minval.Text = Val(min)
   End If
   
   i = i + 1
       
Loop
End Sub

Open "Your file path and filename with extension" For Input As #myfile2