Private Sub Form_Load()
    MsgBox "Hello, World!", vbInformation, "Greeting"
End Sub

Private Sub cmdExit_Click()
    Unload Me
End Sub