MsgBox me aparece al darle click al CommandButton1

Muy buenas tardes, espero no molestarte con esta consulta, ya que el código que me enviaste me funciono de maravilla, quise hacerte esta nueva consulta: aplique el mismo código en otro archivo que tengo la idea es no permitir el ingreso de un numero no mayor o igual que 4 y que no permita dejar pasar al siguiente TextBox si lo dejo en blanco, ahora bien, pude hacer que no me permita el indreso al número no mayor o igual que 4, pero al darle click o enter al CommandButon1 me aparece la ventana del mensaje, y no se porqué, me podrías indicar en donde estoy cometiendo el error y si lo puedo solucionar, espero no te incomode el acudir nuevamente a ti, mi código es el sig:
Private Sub CommandButton1_Click()
Rem inserta un renglon
Fila = 11
Col = 2
While Cells(Fila, Col) <> Empty
Fila = Fila + 1
Wend
Cells(Fila, 2) = Val(TextBox1)
Cells(Fila, 3) = Val(TextBox2)
Cells(Fila, 4) = Val(TextBox3)
Cells(Fila, 5) = Val(TextBox4)
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox1.SetFocus
End Sub
Private Sub TextBox1_Change()
Range("B11").Select
ActiveCell.FormulaR1C1 = TextBox1
End Sub
Private Sub TextBox2_Change()
If Me.TextBox2.Value <= 4 Then
Else
MsgBox "Debe ingresar un numero del 1 al 4", vbExclamation, "Número Inválida"
TextBox2.SetFocus
SendKeys "{home}+{end}"
End If
End Sub
Private Sub TextBox3_Change()
Range("D11").Select
ActiveCell.FormulaR1C1 = TextBox3
End Sub
Private Sub TextBox4_Change()
Range("E11").Select
ActiveCell.FormulaR1C1 = TextBox4
End Sub
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 27 Then
UserForm2.Hide
End If
End Sub
Private Sub TextBox2_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 27 Then
UserForm2.Hide
End If
End Sub
Private Sub TextBox3_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 27 Then
UserForm2.Hide
End If
End Sub
Private Sub TextBox4_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 27 Then
UserForm2.Hide
End If
End Sub
Private Sub CommandButton1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 27 Then
UserForm2.Hide
End If
End Sub
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox3.Text) Then
TextBox3.Text = Format(TextBox3.Text, "#,##0.00")
Else
TextBox3.Text = "0.00"
End If
End Sub