dim as integer sorunu

[musculus2]

Merhaba. Tekrar girişi engellemek için yaptığım sayısal kontrolde küçük rakamlarda hata vermez iken 40000 den sonra hata veriyor.
Dim as integer kullanmaz isem kontrol yapmıyor.
Nerede hata yapıyorum ?

Private Sub CommandButton1_Click()

Dim kont1 As Integer, kont2 As Integer
If ComboBox1.Value = "" Then
MsgBox ("Lütfen hangi birim olduğunu giriniz"), , "Birim Hatası"
Cancel = True
ComboBox1.SetFocus
Exit Sub
End If

Sheets("barkod").Select


kont1 = TextBox1.Value

For kont = 5 To [h65535].End(3).Row
kont2 = Range("h" & kont)

If kont1 = kont2 Then


MsgBox "Bu barkod numarası daha önce kayıt edilmiş ", , "Tekrar Giriş Hatası"
TextBox1.Value = ""
TextBox1.SetFocus

Exit Sub
End If

Next

 

[veyselemre]

Long olarak tanımlayın.

 

[musculus2]

Çok teşekkür ederim.