If MsgBox("Heya Heya Heya This works " , vbOKCancel) = vbOk Then
yad yada
Else
yada yada
End If
Dim MsgResponse As Variant
MsgResponse = MsgBox("Yada Yada Yada", vbOKCancel)
If MsgResponse = vbOk Then
Yada Yada
Else ' means cancel
Yada yada
Exit Sub
End If