Visual Basic - MSGBOX VBYESNO

mv=msgbox"esta seguro de eliminar el registro?",vbyesno

Select Case Mv

    Case  6 'Yes

    Case 7 'No

End select

mensaje=(msgbox("En realidad desea eliminar el registro"), vbquestion+vbyesno,("Eliminar Registros"))

if mensaje=vbyes yhen

'Aqui eliminas tu registro

else

'cancelas

end if

Te aclaro: el vb question es para que te salga el icono de interrogacion y la ventana se vea mas llamativa y el "Eliminar registros" al final es para Darle un titulo a la ventana.

tambien lo puedes validar con:

if vbyes=1 then

'Aqui eliminas tu registro

else

'cancelas

end if

Private Sub Cancelar_Registro_Click()

Dim msgvalue As Integer

msgvalue = MsgBox("Está seguro de cancelar el registro?", vbInformation + vbYesNo, "Mensaje de Alerta")

Select Case msgvalue

Case 6 'Yes

     ' AQUI VA EL Grupo de instrucciones que se va a ejecutar al presionar la opción SI

Case 7 'No

    ' AQUI VA EL Grupo de instrucciones que se va a ejecutar al presionar la opción NO

End Select

End Sub