关于VB递归的问题

卡fans

编了一个程序，想将读取的TXT数据进行多次模块计算，现在发现只能利用模块计算一次，求大家帮忙。
以下是代码
Private Sub 灰度理论预测_Click()
Dim LinesFromFile As String
Dim data As String
LinesFromFile = Text1.Text
If IsNumeric(LinesFromFile) Then
data = CStr(LinesFromFile)
End If
    GM1_1_Predict data
   
End Sub

xiaoluo

vb6 ?
是用这个计算 ？    GM1_1_Predict data

就只执行了一次。