Textboxa Nokta İle Girişi Engelleme

[Hsn55]

İyi akşamlar
Textbox1 e Nokta ile giriş yaptığım zaman "Virgül Kullanınız" diye uyarı verilebilir mi?

 

[Muzaffer Ali]

Merhaba.

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = 46 Then
        MsgBox "Lütfen virgül (,) kullanınız.", vbCritical
        KeyAscii = Empty
    End If
End Sub

 

[Hsn55]

Çok teşekkür ederim Muzaffer bey