checate esto:
esta es la manera mas facil que veo para poder ejecutar un codigo dependiendo el boton pulsado..
ahi tienes un ejemplo....
Valores devueltos
Constante Valor Descripción
VbOk 1 Aceptar
VbCancel 2 Cancelar
VbAbort 3 Anular
VbRetry 4 Reintentar
VbIgnore 5 Ignorar
VbYes 6 Sí
VbNo 7 No
Nota: Si desea omitir algún argumento, debe incluir el delimitador de coma correspondiente o utilizar
argumentos con nombre.
Ejemplos
StrMsg = "¿Desea continuar?"
Estilo = vbYesNo + vbExclamation + vbDefaultButton2
StrTitulo = "Responda"
Rpta = MsgBox(strMsg, Estilo, StrTitulo )
If Rpta= vbYes Then
-----------
-----------
Else
-----------
-----------
End If