Tarih formatlı Textbox bilgi yoksa tarih yerine ( - ) yazma

[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

 

[dEdE]

Merhaba,
Aşağıdaki satırı

If Not IsDate(TextBox22) Then

Şu şekilde değiştirip dener misiniz? Sizin koda kırmızı renkli bölüm eklendi. Rakam için de aynı eklemeyi yapmalısınız.

If Not IsDate(TextBox22) [COLOR="Red"]And TextBox22.Value <> "-" [/COLOR]Then

 

[yarendiyari]

Hocam teşekkür ederim