Visual Basic - Ayuda

hola necesito ayuda con un codigo que no soy capaz de hacer, estoy realizando un cuestionario, y el asunto es si aciertas a la 1ª se suma un punto y si fallas se resta 0.5 pero no pasas d pregunta asta haber contestado bien entonces ya no se como probar para que funcione correctamente si alguno me puede ayudar lo agradeceria.

Alberto:
Lo que decís no es muy específico, así que sólo estoy adivinando, pero la cosa sería así:
'A nivel módulo
private intentos as long
private Puntaje as long

'Cuando aparece por primea vez la pregunta
intentos =0

'En el procedimiento que valida la pregunta
Dim f as boolean
intentos=intentos+1
f=EsCorrecta 'Procedimiento que valida la pregunta (true o false
if f=true then
if Intentos=1 then
Puntaje=Puntaje+1
Else
Puntaje=Puntaje-0.5
End if
else
Puntaje=Puntaje-0.5
End if

Saludos Ruri

soy yo d nuevo pongo el codigo para a ver si me entendeis
Private Sub Command1_Click()
a = Data1.Recordset.AbsolutePosition
If a = 0 Then
If bol = False Then

If (Option1.Value = True) Or (Option3.Value = True) And (Option2.Value = False) Then

MsgBox "Error!!! No pasaras de pregunta hasta acertar la respuesta", 64, "Contestación Erronea"
bol = True
else

MsgBox "Correcto se restara de tu puntuación - 0.5, por haber fallado y luego acertado", 64, "Contestación Buena"

puntosmalos = puntosmalos + 0.5
bol = True
Data1.Recordset.MoveNext
Option1.Caption = Data1.Recordset.Fields(1)
Option2.Caption = Data1.Recordset.Fields(2)
Option3.Caption = Data1.Recordset.Fields(3)
End If
End If
End If
If bol = False Then
If Option2.Value = True Then
MsgBox "Correcto!!!Se te sumara un punto a tu puntuación", 64, "Correcto"
bol = True
puntosbuenos = puntosbuenos + 1
Data1.Recordset.MoveNext
Option1.Caption = Data1.Recordset.Fields(1)
Option2.Caption = Data1.Recordset.Fields(2)
Option3.Caption = Data1.Recordset.Fields(3)
End If
End If
If bol = True Then
total = puntosbuenos - puntosmalos
Text5.Text = total
End If
bol = False
' las varibales estan ya creadas.. e inicializadas

Te paso un ejemplo a tu correo!!!