Private Sub Command1_Click()
  Dim optIndex As Integer
 
  optIndex = Option1(0).Tag
  ...
End Sub
 
Private Sub Option1_Click(Index As Integer)
  Option1(0).Tag = Index
End Sub

Private Sub Form_Load()
  Option1(0).Value = True
End Sub