用代码说事吧,不知楼主是不是这个意思.
Private Sub Command1_Click()
    If InputBox("请输入密码") = "12345" Then
        Call AnySub
        MsgBox AnyFunction()
    Else
        Exit Sub
    End If
End Sub
Private Sub AnySub()
    MsgBox "this is any sub"
End Sub
Private Function AnyFunction() As String
    AnyFunction = " this is any function"
End Function
[[it] 本帖最后由 ioriliao 于 2008-10-19 12:34 编辑 [/it]]