type mismatch hatası

Merhaba hocalarım, Aşağıda yazdığım kodda kullanıcıdan görevi bitirmesi için bir adet görev ID'si istiyorum ancak eğer kullanıcı ID girilen inputbox'a id girmeyip direkt "Ok" butonuna tıklarsa program "Type Mismatch" hatası veriyor bunun için en alta bir hata ayıklama yaptım. Kullanıcı...

Private Sub btnEkle_Click() frmTeklif.show End Sub Private Sub btnKapat_Click() Unload Me End Sub Private Sub UserForm_Initialize() TeklifSayisiGoster TeklifListele End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode <> 1 Then Cancel = 1 End Sub Sub...