Run-Time Error 13 type mismatch hatası

[byfika]

Merhabalar,
Userform, formatı CLng olan Textbox3 den, sayı biçimli C sütununa rakam girilince herhangi bir problem yok, (her zaman rakam girilmeyeceğinden) textbox3 rakam girilmeyip kaydet butonuna basıldığında type mismatch Runtime error 13 hatası vermekte. Bu hatayı nasıl düzeltebilirim?
Detaylı açıklama örnek dosyaya yazdım.
Örnek dosya ve hata resmini ekledim.
Bilgi için teşekkürler.

 

[hmtstc]

aşağıdaki şekilde eklenti yaptım üstüne,
iyi günler

" eklenti
If Not IsNumeric(frmkayit.Textbox3.Value) Then
MsgBox "Sadece sayı giriniz"
Exit Sub
End If

' üst kısım eklenti
With Sheets("Sayfa1")
Satır = .Range("A65536").End(3).Row + 1

 

[kemal turan]

Her zaman veri girilmeyeceği için kodunuzun başına
prıvate sub.. dan sonraki satıra

Private Sub cmdKaydet_Click()
On Error Resume Next
    If AdıBoşmu Then Exit Sub
    If TCNOBoşmu Then Exit Sub

ekleyiniz.

 

[byfika]

Merhabalar, Sayın Kemal Turan bey
Cevabınız için teşekkürler.
Saygılarımla...