Prueba con este método:
Supongamos que el registro se envía a un Label (No especificaste a donde se regsitraba)
Dim Texto, Texto2, Título As String 'Texto2 es lo del segundo MsgBox.
Dim Estilo, Estilo2 As MsgBoxStyle
Dim Respuesta As MsgBoxResult
Texto = "¿seguro que desea votar por este partido?"
Estilo = MsgBoxStyle.Question Or MsgBoxStyle.DefaultButton2 Or
MsgBoxStyle.YesNo
Título = "Información"
Respuesta = MsgBox(Texto, Estilo, Título)
If Respuesta = MsgBoxResult.Yes Then
Texto2 = "Su voto se ha realizado"
Estilo2 = MsgBoxStyle.Information Or MsgBoxStyle.DefaultButton1 Or MsgBoxStyle.OkOnly
ResultadoLabel.Text = "Voto Confirmado"
MsgBox(Texto2, Estilo2, Título)
ElseIf Respuesta = MsgBoxResult.No Then
Texto2 = "Su voto se ha cancelado"
Estilo2 = MsgBoxStyle.Information Or MsgBoxStyle.DefaultButton1 Or
MsgBoxStyle.OkOnly
MsgBox(Texto2, Estilo2, Título)
End If
Con esto, si la respuesta es No, no confirmará nada; Pero si la respuesta es "Sí" se registrará en el Label.