Solución 12.9 Realizar una acción según la elección del usuario

Sub AccionSegunEleccion ()  
  Dim strMensaje As String  
  Dim intBotonIcono As Integer  
  Dim strTitulo As String  
  Dim intSeleccion As Integer  
  strMensaje ...