Tür Uyuşmazlığı Hatası

[mesuttasar]

Forumda benzer konular var yine açtığım için özür dilerim ama sorun şu. Bu hatayı yeni vermeye başladı daha önce sorun yoktu. Çalışma kitabında 2 userform var sifre formunda bu komut yazıyor.

Private Sub CommandButton3_Click()
If Val(TextBox2) = Worksheets("veri").Range("aa1").Value Then
Unload Me
UserForm1.Show
Sheets("veri").Select
Range("a1").Select
Else
MsgBox "Şifre Yanlış Lütfen Tekrar Deneyiniz", vbCritical, "İhale Sonuç Hesaplama Programı"
TextBox2.SetFocus
TextBox2.Value = ""
Sheets("veri").Select
Range("a1").Select

End If
End Sub

Ama Userform.show satırında tür uyuşmazlığ hatası veriyor.Bu neden kanaklanıyor.Anlayamadım.

Dosyayı ekte gönderiyorum.

 

[Mahmut Kök]

Sorun, userform1'deki initialize olayından kaynaklanıyor. Orada metin kutularına almaya çalıştığınız değerler hatalı olduğu için, userform1 hiç açılamıyor. Mesela G4,G5 hücreleri...