Mantıksal Sınama Hatası

[s.savas]

Merhaba arkadaşlar.
Ekteki userform ile yeni kayıt yaparken; TextBox3'ün aldığı değer TextBox5'ten büyükse uyarı vermesini aşağıdaki kod ile yapıyorum. Fakat TextBox3'teki değer TextBox5'teki değerden küçük olmasına rağmen aynı uyarıyı alıyorum. Sorunun kaynağını bulamadım.

If Val(TextBox3.Text) >= Val(TextBox5.Text) Then
If MsgBox("" & TextBox2.Value & " İşine Ait Yaklaşık Maliyet Tutarı, Kullanılabilir Ödenek Tutarından Yüksektir..! Onaylıyormusunuz ?", vbInformation + vbYesNo, "..::DİKKAT::..") = vbNo Then Exit Sub
End If

 

[s.savas]

Arkadaşlar kodu aşağıdaki gibi değiştirince sorun çözüldü, ancak Val ile Ccur arasındaki farkı çözemedim.

If Ccur(TextBox3.Text) >= Ccur(TextBox5.Text) Then
If MsgBox("" & TextBox2.Value & " İşine Ait Yaklaşık Maliyet Tutarı, Kullanılabilir Ödenek Tutarından Yüksektir..! Onaylıyormusunuz ?", vbInformation + vbYesNo, "..::DİKKAT::..") = vbNo Then Exit Sub
End If