Private Sub Command1_Click()

MsgBox "Hello, World", vbOKOnly Or vbExclamation, "Hi!"

End Sub