VB编程之End Function

出错的程序如下：
Sub Findfile(getPath As String)
Dim mypath As String
Dim myname As String
Dim mydirectory() As String
Dim i, intresult As Integer
mypath = getPath
If mypath = "" Then End Function
intresult = 2
ReDim mydirectory(intresult)
mydirectory(1) = mypath
i = 1
Do Until mydirectory(i) = ""
mypath = mydirectory(i)
If Right(mypath, 1) <> "\" Then mypath = mypath & "\"
myname = Dir(mypath, vbDirectory)
Do While myname <> ""
If myname <> "." And myname <> ".." Then
If (GetAttr(mypath & myname) And vbDirectory) = vbDirectory Then mydirectory(intresult) = mypath & myname
intresult = intresult + 1
ReDim Preserve mydirectory(intresult)
Else
List1.AddItem mypath & myname
End If
End If
myname = Dir
Loop
i = i + 1
Loop
End Sub
编译时总是提示“expected end s

在VB编程中，” END Sub”中的”SUB”是什么意思啊？谢谢！ vb 错误end of statement VB中END IF是什么意思 VB编程。 vb编程： VB编程.... 跪求土力学之普遍条分法试算编程，VB版 问遍网络无人答之vb高级编程问题。 vb中，end 和 unload 的区别？ Vb中，end键的 Chr是多少?