Option Explicit

Private Sub Form_Load()
  Dim mnuMenuItems 
  Set mnuMenuItems = mnuMain.Controls.AddMenu("Menu") 'Создаём меню с названием "Menu"
  mnuMenuItems.Items.Add , , "Say Hello!" 'Добавляем подменю "Say Hello!"
End Sub

Private Sub Form_OKClick()
    App.End 'Если нажали на OK, который находится сверху в правом углу, то выходим
End Sub

Private Sub mnuMain_MenuClick(ByVal Item As MenuBarLib.Item)
    ' Определяем нажатия на "Say Hello"
    Select Case Item.Caption
    Case "Say Hello!"
        MsgBox "Hello " & txtFirstname.Text & " " & txtLastname.Text, vbInformation, "Information" ' Показываем оповещание/MessageBox/Alert
    
    End Select
End Sub