Unir codigo de varios TextBox en una sola rutina y que responda a todos

[JoaoM]

¿Se podría hacer algo?

El 1º lo resolví con ayuda de un amigo en la WEB, ahora me queda este

Código:

Private Sub ComboBox1_Change()

'CONDICIONAMOS EL TIPO DE CLIENTE PARA CUBRIR EL FORMULARIO Y DESACTIVAMOS TEXBOX SI SE TRATA DE JURIDICA

    If ComboBox1 = "PERSONA JURIDICA" Then
        TextBox2.Text = "NO"
        TextBox3.Text = "NO"
        TextBox4.Text = "NO"
        TextBox2.Enabled = False
        TextBox3.Enabled = False
        TextBox4.Enabled = False
        Frame2.Enabled = False
    Else
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox2.Enabled = True
        TextBox3.Enabled = True
        TextBox4.Enabled = True
        Frame2.Enabled = True
    End If
End Sub

Agradezco al alma generosa