Macro para validar captura de datos en un OptionButton

"Para Dante Amor", Tengo una macro que me evita pasar a un formulario sin antes haber capturado toda la información del primer formulario, lo que necesito es actualizar el código ingresando el OptionButton1 y OptionButton2 a la validación de captura. ( Te anexo la macro que actualmente uso)

Private Sub CommandButton2_Click()

vcs = Array("TextBox5", "Código", "Nombre", "Apellidos", "DNI", _
"ComboBox3", "ComboBox1", "ComboBox2", "TextBox9")
'
vtx = Array("fecha", "su numero de Registro", "nombre", "apellidos", "número de registro", _
"Tipo de Falla", "Aplicativo", "Dispositivo", "Posición")
'
For i = LBound(vcs) To UBound(vcs)
If Me.Controls(vcs(i)) = "" Then
MsgBox "Ingrese " & vtx(i), vbExclamation, "VALIDACIÓN CAPTURA"
Me.Controls(vcs(i)).SetFocus
Exit Sub
End If
Next
'
Worksheets("Hoja3").Select
ult1 = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(ult1, 1) = Nombre.Text
Cells(ult1, 2) = Apellidos.Text
Cells(ult1, 3) = DNI.Text
Cells(ult1, 4) = ComboBox3.Value
Cells(ult1, 6) = ComboBox2.Value
Cells(ult1, 5) = ComboBox1.Value
Cells(ult1, 8) = TextBox9.Text
Cells(ult1, 9) = TextBox5.Text
Cells(ult1, 10) = TextBox10.Text
If OptionButton1 Then wcap = OptionButton1.Caption
If OptionButton2 Then wcap = OptionButton2.Caption
Cells(ult1, 7) = wcap
UserForm3.Show
End Sub