VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.Frame Frame1 
      Caption         =   "Choose 1 or 2"
      Height          =   1455
      Left            =   1440
      TabIndex        =   1
      Top             =   360
      Width           =   1815
      Begin VB.OptionButton Option1 
         Caption         =   "2"
         Height          =   375
         Index           =   1
         Left            =   360
         TabIndex        =   3
         Top             =   840
         Width           =   855
      End
      Begin VB.OptionButton Option1 
         Caption         =   "1"
         Height          =   375
         Index           =   0
         Left            =   360
         TabIndex        =   2
         Top             =   480
         Width           =   855
      End
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Do Something"
      Height          =   495
      Left            =   1800
      TabIndex        =   0
      Top             =   2040
      Width           =   1215
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click()

    Select Case True
        Case Option1(0).Value
            Something1
        Case Option1(1).Value
            Something2
        Case Else
            MsgBox "Please select one of the radio buttons"
    End Select
End Sub

Public Sub Something1()

    MsgBox "This is Something1"
    
End Sub
Public Sub Something2()

    MsgBox "This is Something2"
    
End Sub