¿Cuál es el máximo de condicionales " IF " para un Button en Visual?

Tengo estos condicionales en un botón pero el ultimo no se me cumple !!!

Private Sub CommandButton1_Click()
a = a + 1
TextBox1.Text = a
If ComboBox1.Value = 1 Then Label4 = "Caja"
If ComboBox1.Value = 2 Then Label4 = "Banco"
If ComboBox1.Value = 3 Then Label4 = "Compras"
If ComboBox1.Value = 4 Then Label4 = "Ventas"
If ComboBox1.Value = 5 Then Label4 = "Obli.Finan"
If ComboBox1.Value = 6 Then Label4 = "Iva"
If ComboBox1.Value = 7 Then Label4 = "ReteFuente"
If ComboBox1.Value = 8 Then Label4 = "CxC"
If ComboBox1.Value = 9 Then Label4 = "CxP"
If ComboBox1.Value = 10 Then Label4 = "Capital"
If ComboBox1.Value = 11 Then Label4 = "Intereses"
If ComboBox1.Value = 12 Then Label4 = "Gastos"
If ComboBox1.Value = 13 Then Label4 = "Edificio"
If ComboBox1.Value = 14 Then Label4 = "Vehículo"
If ComboBox1.Value = 15 Then Label4 = "Ingr.PxA"
If ComboBox1.Value = 16 Then Label4 = "IngreRecibidos"
If ComboBox1.Value = 17 Then Label4 = "Debo.Ventas"
If ComboBox1.Value = 18 Then Label4 = "Debo.Compras"
TextBox2.Text = Date
If ComboBox1 = "1" And ComboBox2 = "Se compra mercancía a contado" Then
Range("c7").Value = TextBox3
Range("e4").Value = TextBox3
End If
If ComboBox1 = "2" And ComboBox2 = "Se compra mercancía contado por cheque" Then
Range("f7").Value = TextBox3
Range("e4").Value = TextBox3
End If
If ComboBox1 = "8" And ComboBox2 = "Se vende mercancía a crédito" Then
Range("c4").Value = TextBox3
Range("b10").Value = TextBox3
End If
If ComboBox1 = "4" And ComboBox2 = "Se vende mercancía a contado" Then
Range("c4").Value = TextBox3
Range("b7").Value = TextBox3
End If

Que hago para que se me cumpla ese y otros que voy a insertar mas adelante ?

URGENTE !!!!!!!!!