Private Sub Command1_Click()
Dim x As Integer, y
For y = 1 To 2
If Option3.Value = True Then
x = x + 5
Else
x = x
End If
clear
wt & y
Nexty
End Sub
......................