Si se deja un Textbox en blanco

<span style="font-family: 'Times New Roman'; font-size: 16px;">
<div style="color: #000000; font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; background-image: initial; background-repeat: initial; background-attachment: initial; -webkit-background-clip: initial; -webkit-background-origin: initial; background-color: #ffffff; background-position: initial initial; margin: 8px;">Hola,
Según lo que puedo apreciar puedes validar el caso para la palabra "Anulada" con un "Case 0" en tu Select Case y utilizar para validar una Fecha Correcta preguntando si la Fecha introducida es Valida así:
If IsDate(Me.TextBox1.Text) = False then
MsgBox "La Fecha instrucida es Invalida"
Me.TextBox1.Text
Else
'Continua la Ejecucion del Codigo
End If
Espero Te funcione
Saludos
Leone
</div>
</span>

Me falto finalizar parte del código, disculpa
If IsDate(Me.TextBox1.Text) = False then
MsgBox "La Fecha introducida es Inválida", vbExclamation, "Fecha Inválida"
Me.TextBox1.Text = ""
Me.TextBox1.SetFocus
Else
'Continua la Ejecucion del Codigo
End If

Muchas gracias por tu ayuda y pronta colaboración, el código que me enviaste me sirvió aunque no lo tome literal pero me ayudo mucho, bien ahora me he topado con un problemilla que si eres tan amable de ayudarme ya que en el código yo lo cambie por Me.TextBox4.SetFocus ahora el problema es que he intentado de mil maneras pero el cursor siempre se va al TextBox3 en vez del TextBox4 y no se porqué, tengo un código que al dejarlo en blanco me anota "Anulada" en el TextBox1, y del TextBox2 al TextBox4, me anote "0.00" pero en realidad lo que yo quiero es que al dejarlo en blanco haga lo anterior pero que se valla al CommandButton1 que tengo, pero como no se como hacerlo, pues opte para que se fuera al TextBox4, pero repito no se porque siempre se queda en el TextBox3, si pudieras ayudarme te lo agradecería, además te envío todo el código que tengo para ver si tu podrías encontrar donde esta mi error:
Private Sub CommandButton1_Click()
Rem inserta un renglon
Fila = 9
Col = 2
While Cells(Fila, Col) <> Empty
Fila = Fila + 1
Wend
Cells(Fila, 2) = TextBox1
Cells(Fila, 4) = Val(TextBox2)
Cells(Fila, 6) = Val(TextBox3)
Cells(Fila, 8) = Val(TextBox4)
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox1.SetFocus
End Sub
Private Sub TextBox1_Change()
largo_entrada = Len(Me.TextBox1)
Select Case largo_entrada
Case 2
Me.TextBox1.Value = Me.TextBox1.Value & "/"
Case 5
Me.TextBox1.Value = Me.TextBox1.Value & "/" & Year(Date)
TextBox2.SetFocus
End Select
End Sub
Private Sub TextBox2_Change()
Range("D8").Select
ActiveCell.FormulaR1C1 = TextBox2
End Sub
Private Sub TextBox3_Change()
Range("F8").Select
ActiveCell.FormulaR1C1 = TextBox3
End Sub
Private Sub TextBox4_Change()
Range("H8").Select
ActiveCell.FormulaR1C1 = TextBox4
End Sub
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 27 Then
UserForm1.Hide
End If
End Sub
Private Sub TextBox2_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 27 Then
UserForm1.Hide
End If
End Sub
Private Sub TextBox3_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 27 Then
UserForm1.Hide
End If
End Sub
Private Sub TextBox4_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 27 Then
UserForm1.Hide
End If
End Sub
Private Sub CommandButton1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 27 Then
UserForm1.Hide
End If
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Text = "" Then
TextBox1 = "Anulada"
TextBox2 = "0.00"
TextBox3 = "0.00"
TextBox4 = "0.00"
Me.TextBox4.SetFocus
End If
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox2.Text) Then
TextBox2.Text = Format(TextBox2.Text, "#,##0.00")
Else
TextBox2.Text = "0.00"
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
Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox4.Text) Then
TextBox4.Text = Format(TextBox4.Text, "#,##0.00")
Else
TextBox4.Text = "0.00"
End If
End Sub

Te envío el código Modificado, espero te funcione como me funciono a mi. Lo que hice fue validar la palabra Anulada en el evento keyup que tienes del textbox2
Te valide un poco más el formato para la fecha del Textbox1
Sustituye el código de los siguientes eventos de estos objetos:
Private Sub TextBox2_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 27 Then
UserForm1.Hide
End If
If TextBox1.Value = "Anulada" Then
CommandButton1.SetFocus
End If
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Text = "" Then
TextBox1 = "Anulada"
TextBox2 = "0.00"
TextBox3 = "0.00"
TextBox4 = "0.00"
End If
End Sub
Private Sub TextBox1_Change()
If Me.TextBox1.Value <> "Anulada" Then
largo_entrada = Len(Me.TextBox1)
Select Case largo_entrada
Case 1
If Me.TextBox1.Value > 3 Then Me.TextBox1.Value = "0" & Me.TextBox1.Value & "/"
Case 2
If Right(Me.TextBox1.Value, 1) <> "/" Then Me.TextBox1.Value = Me.TextBox1.Value & "/"
Case 3
If Right(Me.TextBox1.Value, 1) > 1 And Right(Me.TextBox1.Value, 1) <> "/" Then
Me.TextBox1.Value = Format(Me.TextBox1.Value & "/" & Year(Date), "DD/MM/YYYY")
If IsDate(Me.TextBox1.Value) = True Then
TextBox2.SetFocus
Else
MsgBox "La Fecha Introducida es Inválida, por favor intente de Nuevo", vbExclamation, "Fecha Inválida"
TextBox1.SetFocus
SendKeys "{home}+{end}"
End If
End If
Case 4
If Right(Me.TextBox1.Value, 1) = "/" Then
Me.TextBox1.Value = Format(Me.TextBox1.Value & Year(Date), "DD/MM/YYYY")
If IsDate(Me.TextBox1.Value) = True Then
TextBox2.SetFocus
Else
MsgBox "La Fecha Introducida es Inválida, por favor intente de Nuevo", vbExclamation, "Fecha Inválida"
TextBox1.SetFocus
SendKeys "{home}+{end}"
End If
ElseIf Right(Me.TextBox1.Value, 1) > 1 And Right(Me.TextBox1.Value, 1) <> "/" Then
Me.TextBox1.Value = Format(Me.TextBox1.Value & "/" & Year(Date), "DD/MM/YYYY")
If IsDate(Me.TextBox1.Value) = True Then
TextBox2.SetFocus
Else
MsgBox "La Fecha Introducida es Inválida, por favor intente de Nuevo", vbExclamation, "Fecha Inválida"
TextBox1.SetFocus
SendKeys "{home}+{end}"
End If
End If
Case 5
If Right(Me.TextBox1.Value, 1) <> "/" Then
Me.TextBox1.Value = Format(Me.TextBox1.Value & "/" & Year(Date), "DD/MM/YYYY")
Else
Me.TextBox1.Value = Format(Me.TextBox1.Value & Year(Date), "DD/MM/YYYY")
End If
If IsDate(Me.TextBox1.Value) = True Then
TextBox2.SetFocus
Else
MsgBox "La Fecha Introducida es Inválida, por favor intente de Nuevo", vbExclamation, "Fecha Inválida"
TextBox1.SetFocus
SendKeys "{home}+{end}"
End If
End Select
End If
End Sub

Hay muchas opciones para controlar el ingreso de fechas pero voy a optar por tu idea de ingresar solamente el día.
Entonces esto será para el textbox que recibirá esa información:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1 < 1 Or TextBox1 > 31 Then Cancel = True
End Sub
Esto hará que no puedas avanzar si el ingreso no corresponda a un día de mes.
Luego al momento de pasarlo o allí mismo armás la fecha:
miFecha = val(textbox1) & "/" & Month(date) & "/" & Year(date)
Range("B2") = CDate(miFecha) 'ejemplo que mueve la fecha a la celda B2