Thanks to Fred Block

Private Sub Command1_Click()
    Select Case True
        Case Option1(0).Value
            ' Place code here for option "0".
            MsgBox "0"
        Case Option1(1).Value
            ' Place code here for option "1".
            MsgBox "1"
        Case Option1(2).Value
            ' Place code here for option "2".
            MsgBox "2"
        Case Option1(3).Value
            ' Place code here for option "2".
            MsgBox "3"
    End Select
End Sub