Spanish Este código sobre Msgbox2Async es de uno de los manuales pero no me funciona

Sub Button1_Click
    Dim result As Int
    result=Msgbox2Async("Exit?", "Title", "Yes", "Cancel", "No", Null, False)
    If result=DialogResponse.POSITIVE Then
        Activity.Finish
        ExitApplication
    End If
End Sub

Msgbox2Async("Exit?", "Title", "Yes", "Cancel", "No", Null, False)

Wait For Msgbox_Result (Result As Int)
If Result <> DialogResponse.POSITIVE Then
        Dim jo As JavaObject
        jo.InitializeContext
        jo.RunMethod("finishAffinity", Null) ' correct end application 
End If