Pongo lo que Microsoft indica sobre el MsgBox.
MsgBox.
Muestra un mensaje en un cuadro de diálogo, espera a que el usuario haga clic en un botón y, a continuación, devuelve un entero que indica el botón en el que el usuario ha hecho clic.
No voy a enumerar la lista de los valores de los estilos del MsgBox, pero pongo el ejemplo para mejor entendimiento.
Dim mensaje As String
Dim titulo As String
Dim estilo As MsgBoxStyle
Dim respuesta As MsgBoxResult
mensaje = "¿Desea continuar?"   'Define el mensaje
estilo = MsgBoxStyle.DefaultButton2 Or _
   MsgBoxStyle.Critical Or MsgBoxStyle.YesNo
titulo = "Acción a realizar"   'Define el titulo del cuadro de diálogo
'Muestra el cuadro de diálogo.
respuesta = MsgBox(mensaje, estilo, titulo)
If respuesta = MsgBoxResult.Yes Then   'El usuario escogió SI
      'Aquí se realizan las acciones del SI
Else 'El usuario escogió NO
      'Aquí se realizan las acciones del NO
End If