Cheers, just tryed it. It doesnt work, suggest that lblResult1.Text is not right. but I dont know what to put instead.
I tried:

Dim lblResult1 As Integer = 0

If rbtnAnswer1_1_1.Checked = True Then
lblResult1 = lblResult1 + 1
End If

but this still didnt work