Private Sub Command1_Click()
Dim lPos As Long
Dim lNextSign As Long
Dim iSearchLen As Integer
 
FCombo.Clear
lPos = InStr(1, code.Text, "Function ")
iSearchLen = Len("Function ")
 
Do Until lPos = 0
lNextSign = InStr(lPos + iSearchLen, code.Text, "(")
FCombo.AddItem Mid(code.Text, lPos + iSearchLen, lNextSign - lPos - iSearchLen)
lPos = InStr(lPos + 1, code.Text, "Function ")
Loop
End Sub
 
Public Function f1(ByVal X As Long) As Boolean
 
End Function
 
Private Function f2() As String
 
End Function
 
Function f3(i As Integer) As Variant
 
End Function