1. 简单消息提示框

```vbnet

Sub msgbox_example1()

MsgBox "欢迎使用VBA！"

End Sub

```

2. 带有标题的消息提示框

```vbnet

Sub msgbox_example2()

MsgBox "欢迎使用VBA！", vbInformation, "提示"

End Sub

```

3. 带有确定和取消按钮的消息提示框

```vbnet

Sub msgbox_example3()

Dim user_response As Integer

user_response = MsgBox("欢迎使用VBA！是否需要帮助？", vbYesNo, "提示")

If user_response = vbYes Then

MsgBox "很高兴为您提供帮助！"

Else

MsgBox "随时可以向我们寻求帮助。"

End If

End Sub

```

4. 带有自定义按钮的消息提示框

```vbnet

Sub msgbox_example4()

Dim user_response As Integer

user_response = MsgBox("欢迎使用VBA！请选择操作：", vbYesNoCancel, "提示")

If user_response = vbYes Then

MsgBox "选择了是。"

ElseIf user_response = vbNo Then

MsgBox "选择了否。"

ElseIf user_response = vbCancel Then

MsgBox "选择了取消。"

End If

End Sub

```

5. 显示多个消息行的消息提示框

```vbnet

Sub msgbox_example5()

MsgBox "欢迎使用VBA！" & vbCrLf & "这是第二行内容。", vbInformation, "提示"

End Sub

```

6. 使用图标的消息提示框

```vbnet

Sub msgbox_example6()

MsgBox "欢迎使用VBA！", vbInformation + vbMsgBoxSetForeground, "提示"

End Sub

```

7. 限制用户操作的消息提示框

```vbnet

Sub msgbox_example7()

Application.DisplayAlerts = False

MsgBox "欢迎使用VBA！您无法取消此操作。", vbExclamation + vbMsgBoxSetForeground, "提示"

Application.DisplayAlerts = True

End Sub

```

8. 使用变量的消息提示框

```vbnet

Sub msgbox_example8()

Dim name As String

name = InputBox("请输入您的名字：")

MsgBox "你好，" & name & "！欢迎使用VBA！", vbInformation, "提示"

End Sub

9. 带有输入框的消息提示框

```vbnet

Sub msgbox_example9()

Dim input_value As Integer

input_value = MsgBox("请输入一个数字：", vbInputBox, "提示")

If input_value <> 0 Then

MsgBox "您输入的数字是：" & input_value, vbInformation, "提示"

Else

MsgBox "您没有输入任何数字。", vbExclamation, "提示"

End If

End Sub

```

10. 带有密码输入框的消息提示框

```vbnet

Sub msgbox_example10()

Dim password As String

password = MsgBox("请输入密码：", vbPassword, "提示")

If password = "123456" Then

MsgBox "密码正确，欢迎使用VBA！", vbInformation, "提示"

Else

MsgBox "密码错误，请重新输入。", vbExclamation, "提示"

End If

End Sub

```

11. 带有复选框的消息提示框

```vbnet

Sub msgbox_example11()

Dim user_response As Integer

user_response = MsgBox("欢迎使用VBA！是否需要帮助？", vbYesNo + vbDefaultButton2, "提示")

If user_response = vbYes Then

MsgBox "选择了是。"

ElseIf user_response = vbNo Then

MsgBox "选择了否。"

End If

End Sub

```

12. 带有超链接的消息提示框

```vbnet

Sub msgbox_example12()

MsgBox "欢迎使用VBA！如需了解更多信息，请访问：;, vbInformation, "提示"

End Sub

```

13. 使用定时器的消息提示框

```vbnet

Sub msgbox_example13()

Application.Wait (Now + TimeValue("0:00:05"))

MsgBox "欢迎使用VBA！", vbInformation, "提示"

End Sub

```

14. 带有输入框和默认值的消息提示框

```vbnet

Sub msgbox_example14()

Dim input_value As Integer

input_value = MsgBox("请输入一个数字（默认值为10）：", vbInputBox + vbDefaultButton1, "提示")

If input_value <> 0 Then

MsgBox "您输入的数字是：" & input_value, vbInformation, "提示"

Else

MsgBox "您没有输入任何数字，将使用默认值10。", vbInformation, "提示"

End If

End Sub

```

15. 带有密码输入框和确认按钮的消息提示框

```vbnet

Sub msgbox_example15()

Dim password As String

password = MsgBox("请输入密码：", vbPassword + vbDefaultButton1, "提示")

If password = "123456" Then

MsgBox "密码正确，欢迎使用VBA！", vbInformation, "提示"

Else

MsgBox "密码错误，请重新输入。", vbExclamation, "提示"

End If

End Sub

```

16. 带有复选框和取消按钮的消息提示框

```vbnet

Sub msgbox_example16()

Dim user_response As Integer

user_response = MsgBox("欢迎使用VBA！是否需要帮助？", vbYesNo + vbDefaultButton2, "提示")

If user_response = vbYes Then

MsgBox "选择了是。"

ElseIf user_response = vbNo Then

MsgBox "选择了否。"

ElseIf user_response = vbCancel Then

MsgBox "取消了操作。", vbExclamation, "提示"

End If

End Sub

```

17. 带有超链接和关闭按钮的消息提示框

```vbnet

Sub msgbox_example17()

MsgBox "欢迎使用VBA！如需了解更多信息，请访问：;, vbInformation + vbDefaultButton2, "提示"

End Sub

```

18. 使用定时器和取消按钮的消息提示框

```vbnet

Sub msgbox_example18()

Application.Wait (Now + TimeValue("0:00:05"))

MsgBox "欢迎使用VBA！", vbInformation + vbDefaultButton2, "提示"

End Sub

```