rad = txtrad.Text
rad2 = rad * rad
rad3 = rad * rad * rad
high = txtheight.Text
third = 1 / 3
pi = 3.14159265
ft = 4 / 3
    If IsNumeric(rad) Or IsNull(rad) Then
        If IsNumeric(high) Or IsNull(high) Then
            If oppyrvol.Value = True Then
            Sum = rad * high * third
            lblansvol.Caption = Sum
            ElseIf oppyrarea.Value = True Then
            MsgBox "This Command hasnt ben finished yet."
            ElseIf oppyrcirc.Value = True Then
            MsgBox "This Command is useless. it CANT be done. The radio button is just for show."
            ElseIf opspherevol.Value = True Then
            Sum = ft * pi * rad3
            lblansvol.Caption = Sum
            ElseIf opspherearea.Value = True Then
            MsgBox "This Command hasnt ben finished yet."
            ElseIf opspherecirc.Value = True Then
            MsgBox "This Command hasnt ben finished yet."
            ElseIf opcylvol.Value = True Then
            MsgBox "This Command hasnt ben finished yet."
            ElseIf opcylarea.Value = True Then
            MsgBox "This Command hasnt ben finished yet."
            ElseIf opcylcirc.Value = True Then
            MsgBox "This Command hasnt ben finished yet."
            Else: MsgBox "Please check a button."
            End If
        Else: MsgBox "The Input must be of numeric value!"
    End If
End If