Control optionbutton

Control OptionButton - Botón de opción

Private Sub Command1_Click()
'Si está seleccionado el Option1 se ejecuta la siguiente condición
If Option1.Value = True Then
   MsgBox "Seleccionastepagar en Efectivo"
End If

'Si está seleccionado el Option2 esta
If Option2.Value = True Then
   MsgBox "Seleccionaste pagar con Tarjeta de crédito"
End If

'Si está seleccionado el Option3 seejecuta esta otra
If Option3.Value = True Then
   MsgBox "Seleccionaste pagar mediante Cheque"
End If

End Sub

CALCULADORA OptionButton

ESTACIONES DEL AÑO OptionButton

Controles deopciones (CheckBox y OptionButton).

Option Explicit  
1.   
2. Private Sub Command1_Click()  
3.       
4.     ' -- Esta variable almacenará los datos para mostrar  
5.    ' -- el resultado al final de la rutina  
6.     Dim Resultado As String  
7.   
8.     ' -- Esto verificará si el text1 no está vacio y se ha ingresado un nombre  
9.     If Text1 = "" Then  10.         ' -- si está vacío mostramos el mensaje  
11.         MsgBox "Debe ingresar un nombre", vbExclamation, "Encuesta"  
12.        ' -- Mediante Exit Sub salimos de la rutina para  
13.         ' -- no ejecutar las líneas que debajo  
14.         Exit Sub  
15.     End If  
16.   
17.     ' -- Ahora guardamos en la Variable Resultado el nombre que  
18.    ' -- se ingresó en el control text1  
19.     Resultado = "Su nombre es " & Text1 & vbNewLine  
20.   
21.     ' -- Evaluamos el Check1 (mayor de edad)  
22.     If Check1.Value = 0 Then  23.         Resultado = Resultado & "Usted no es mayor de edad"  
24.     Else  
25.         Resultado = Resultado & "Usted es mayor de edad"  
26.     End If  
27.   28.     ' -- Le agregamos a la variable resultado un salto de carro o salto de línea  
29.     Resultado = Resultado & vbNewLine  
30.   
31....