关于无法调用函数得问题，在线等····

如题，下面是程序，没有错误，只是无法调用QuickSort函数···
Private Sub Command2_Click()
Dim k As Integer
Dim l As Integer
Dim Array1() As String

Dim i As Integer, j As Integer
Dim Temp As Integer
Dim length As Integer
Array1() = Split(Text1.Text, ",")
length = UBound(Array1) - LBound(Array1) + 1

   
    
   Call QuickSort(Array1(), 0, length - 1)

End Sub

Private Sub Form_Load()

Text4.Locked = True
 Text2.Locked = True
Text3.Locked = True
   Text1 = Form1.Text1 & st & vbCrLf
End Sub
Public Sub QuickSort(Array1() As String, s As Integer, t As Integer)
        i = s
        j = t
        If s < t Then
               Temp = Array1(s)
               Do While i < j
                  If j > i And Val(Array1(j)) >= Val(Temp) Then
                     j = j - 1
                  End If
                  If i < j Then
                    Array1(i) = Array1(j)
                    i = i + 1
                  End If
                  Do While j > i And Val(Array1(i)) <= Val(Temp)
                     i = i + 1
                  Loop
                  If i < j Then
                    Array1(j) = Array1(i)
                    j = j - 1
                  End If
      
        
               Loop
               Array1(i) = Temp
          
                 
               Call QuickSort(Array1, s, j - 1)
        
               Call QuickSort(Array1, j + 1, t)


     '  Text3.Text = Text3.Text & Array2(First)
     '   For l = First + 1 To Last
      '      Text3.Text = Text3.Text & "," & Array2(l)
     '   Next l
        End If
 
For l = 0 To length - 1
   Text2.Text = Text2.Text & Array1(l) & vbCrLf & ","
Next l
                        
End Sub

--------------------编程问答-------------------- 改个名试一下

补充：VB ,  基础类