Soru textbox ondalık sayı girilmesini engelleme

[sirkülasyon]

textbox1' e sadece tam sayı girilmesine izin verecek, virgüllü rakam girişine Örnek 10 rakamına izin verecek, 10,00 - 10,01-10,10-10,35 gibi formatlara izin vermeyecek.
Yardımcı olabilir misiniz?

 

[Haluk]

Private Sub TextBox1_Change()
  If Right(TextBox1, 1) = "," Then
    MsgBox "Hop dedik !"
    SendKeys "{BACKSPACE}"
  End If
End Sub

.

 

[sirkülasyon]

Eyvallah REİS' im