在被調用函數中使用DoEvents語句即可。

Global BreakCall As Boolean
Function MyCall1() ......
While BreakCall
'函數語句
.......
.......
DoEvents
Wend
End Function

通過在其它的代碼部分改變 BreakCall 的值，可以控制函數運行或結束。
BreakCall = True '允許函數語句部分無限次數執行。
BreakCall = False '函數語句部分本次執行完后便退出函數。

VB中的函數有Sub和Function之分，其最明顯的區別是有無返回值。實現二者的跳出功能語句就是Exit Sub和Exit Function 這二者大多用于遁環語句當中,比如：
Private Sub YourSubName()
i=1
Do While i<20
Print "i=";i
If i=10 Then Exit Sub
i=i+1
Loop
End Sub