Texbox formatı boş bırakınca hata

[yarendiyari]

Arkadaşlar yapmış olduğum çalışmada textboxlara format verdim.

Tarih :
Private Sub TextBox22_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox22 = "" Then GoTo 10
If Not IsDate(TextBox22) Then
MsgBox "Tarih Girmelisiniz", , " uyarı "
TextBox22 = ""
Cancel = 1
Exit Sub
End If
TextBox22 = Format(TextBox22, "dd.mm.yyyy")
10
TextBox22.SetFocus
End Sub

Rakam :
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox3 = "" Then GoTo 10
If Not IsNumeric(TextBox3) Then
MsgBox "Rakam Girmelisiniz", , " uyarı"
TextBox3 = ""
Cancel = 1
Exit Sub
End If
10
End Sub

-----
Yapmış olduğum kayıtların çoğunda tarih veya sayı formatı olan alanlarda bilgi olmuyor bilgilerin yerine ( - ) eksi koyuyorum ama userform aracılığı ile görüntülediğimde eksi koyduğum alanlar hata veriyor rakam girmelisin tarih girmelisin diye burda bilgi yoksa eksi nasıl girebilirim yardımlarınızı bekliyorum.
Şimdiden teşekkür ederim