Visual Basic - Una facilita

Una pregunta, quiero poner un cuadro de diálogo con 3 botones, Yes no cancel, y dependiendo la respuesta del usuario hacer determinada acción, Como hago para almacenar esa respuesta en una variable para despues yo validarla?
Gracias

r = MsgBox(mensaje, 36)
if r=6 then
.......
else
......
end if

Private Sub Command1_Click()
Dim VEN As Integer
If MsgBox("Esta seguro que desea realizar esa acción?", vbQuestion + vbYesNoCancel, "Confirme") = vbYes Then
VEN = 0
ElseIf vbCancel Then
VEN = 1
ElseIf vbNo Then
VEN = 2
End If
If ven=2 then
......................
elseIf ven=1 then
.......................
elseif ven=0 then
........................
end if
end sub

m0rph...