problemas con optionbutton

[elbano66]

eexcelente funciona hay un detalle esos option los estoy colocando para realizar una suma de varias pregunta la cual tienen valor cada una yo lo hice haci:
Dim X As Integer
Dim Resultado As Long
Resultado = 0
For X = 0 To 30
If Option1(X).Index = 1 Then
Resultado = Resultado + Val(Option1(X).Tag)
End If
Next X
Text1.Text = Resultado


es un matriz clao pero al sumar no me toma los valores de cada option y no me lo muestra en text1.text, que pasara ahy??