Pulsante si no cancel

[pinaz]

Sub OnMouseDown(x As Long, y As Long, flags As Long)

Dim MyPoint As New Point
Dim A() As Integer 'Declare the value array

Dim obj_var As GefObjectVariable
Dim pag, idx, db As String

Set obj_var = CimGetObject().GetVariable("DB")
db = obj_var.Value

Set obj_var = CimGetObject().GetVariable("INDICE")
idx = obj_var.Value

sleep 500

Select Case MsgBox("Sei sicuro di volere cambiare lo stato Simulazione???", vbYesNoCancel Or vbExclamation Or vbSystemModal Or vbDefaultButton1, "Warning")

Case vbYes
MsgBox "Lo stato simulazione è cambiato"


Case vbNo
MsgBox "Lo stato simulazione non è cambiato"

Case vbCancel
MsgBox "Operazione annullata"

MyPoint.id = "CPU313C."& db &"" 'SET BIT
MyPoint.Get 'Get the point value
MyPoint.GetArray A 'Transfer point element into array
A(idx) = 1 'Set the array
MyPoint.SetArray A 'Transfer array into the point
MyPoint.Set 'Transfer data to CIMPLICITY.

End Select

End Sub

In pratica se premo si deve fare questa operazione

MyPoint.id = "CPU313C."& db &"" 'SET BIT
MyPoint.Get 'Get the point value
MyPoint.GetArray A 'Transfer point element into array
A(idx) = 1 'Set the array
MyPoint.SetArray A 'Transfer array into the point
MyPoint.Set

con gli altri due no come posso fare?