Private Sub Command1_Click() '弹出消息框
    MsgBox "内容", 按扭常量, "标题"
End Sub

Private Sub Command2_Click() '判断消息框
    Dim v As String
    v = MsgBox("内容", vbOKCancel, "标题")
    If v = vbCancel Then 'vbCancel也可换成vbOK则表示确定键
        MsgBox "您选择的是取消键！", vbOKOnly, "提示"
    End If
End Sub

按扭常量:
vbOKOnly            0 只显示“确定”按钮
VbOKCancel          1 显示“确定”和“取消”按钮
VbAbortRetryIgnore  2 显示“终止”、“重试”和“忽略” 按钮
VbYesNoCancel       3 显示“是”、“否”和“取消”按钮
VbYesNo             4 显示“是”和“否”按钮
VbRetryCancel       5 显示“重试”和“取消”按钮
VbCritical          16 显示“关键信息”图标
VbQuestion          32 显示“警告询问”图标
VbExclamation       48 显示“警告消息”图标
VbInformation       64 显示“通知消息”图标
'-------------------------以上是MsgBox-------------------------

Private Sub Command3_Click() '将消息框中的文字输入到text中
    Dim i As String
    i = InputBox("内容", "标题", "预输入的内容")
    If StrPtr(i) = 0 Then
        Print "您按了取消按钮"
    Else
        Print "您按了确定按钮"
    End If
End Sub
'-------------------------以上是InputBox-------------------------