请教个弱智的问题！

accben

加个开关就可以。
Private Function CX2() As Boolean
'初始化
CX2 = False
If IsNull(Me.Text0) = True Then
    CX2 = False
    MsgBox "请确定【Text0】的值！", vbOKOnly, "系统提示"
    Exit Function
Else
    CX2 = True
End If
End Function

Private Sub Command0_Click()
If CX2 = False Then
    '如果 CX2返回False，不能让其继续往下执行，可以给用户提示后，退出当前事件过程。
    MsgBox "函数出错了。", vbOKOnly, "系统提示"
    Exit Sub
Else
    '这里可以继续你要的事件
    '......
    '......
    '......
End If
End Sub