Duvida Simples sobre Msgbox

Pessoal

Estou com uma duvida simples sobre como posso fazer um "ifmsgbox" com tres opções, tipo: yes,no,cancel.

tentei fazer assim:

if msgbox ("xxx",vbquestion+vbyesnocancel,"xxx")=vbyes then
call xxxxxx
elseif msgbox = vbcancel then
call xxxx
else call xx
endif

mas nao deu certo...

Como posso fazer?

Tente assim:

Dim Mensagem As String
Mensagem = MsgBox("xxx", vbYesNoCancel, "xxx")
Select Case Mensagem
Case vbYes
Procedimento 1
Case vbNo
Procedimento 2
Case vbCancel
Procedimento 3
End Select