Si dejo TextBox de formulario en blanco

Tengo este codigo en un formulario de excel:
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 & "/2008"
TextBox2.SetFocus
End Select
End Sub
Pero quiero que si no escribo nada en este Textbox1 que me aparezca la palabra "Anulada" además en la fecha que solo tenga que escribir el día y que el mes y año lo obtenga automaticamente de la fecha del sistema, eso si se pudiera y si no pues que si me equivoco a la hora de ingresar el formato de fecha que me envie un mensaje "Fecha mal ingresada" Ej: 02/99/2008 o 02/09/208; y que se quede en el TextBox1 para poder corregir el error.
Espero me entiendan que es lo que deseo hacer y de antemano agradezco su pronta ayuda Att. Enrique Castro

Quizás prefieras la rutina que sigue, que contempla que puedas dejar el control vacío:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1 = "" Then   'si dejas el control vacío colocará Anulado en la celda
ActiveCell = "Anulada"
ElseIf TextBox1 < 1 Or TextBox1 > 31 Then  'sinó debes ingresar día
Cancel = True
Else    'si está correcto lo transforma en fecha
miFecha = Val(TextBox1) & "/" & Month(Date) & "/" & Year(Date)
ActiveCell = CDate(miFecha)
End If
End Sub

Probalo y comentame si te resultó

Saludos
Elsa

http://es.geocities.com/lacibelesdepunilla/macros