Запрет ввода в TextBox букв и . (точки) / Или автозамена точки на запятую

[uralshans]

Доброго времени суток!
Пытаюсь разобраться с запретом ввода букв.
вот код:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim s$
s = TextBox1.Text
If IsNumeric(Chr(KeyAscii)) Then
ElseIf KeyAscii = 46 Or KeyAscii = 44 Then
KeyAscii = 44 '44, 46 - запятая или точка, согласно национальным настройкам системы
If InStr(s, Chr(KeyAscii)) > 1 Then KeyAscii = 0 'запрет повторения разделителя
If Len(s) = 0 Then KeyAscii = 0 'запрет лидирующего разделителя
'If InStr("0123456789,", Chr(KeyAscii)) = 0 Then KeyAscii = 0 ' запрет букв
Else
KeyAscii = 0
End If
End Sub

Все работает хорошо на Английской раскладке. Но на русской при нажатии на клавиши "Б" и "Ю" выдает ошибку.

Как быть?
Может есть варианты проще?
Цель: Можно вводить в ТекстБокс1 только Цифры и Только запятую. Если человек начинает вводить буквы или ставить точку то высвечивается Окно Ошибки (Msgbox) "Нельзя вводить буквы и точку".
Или с точкой как вариант автозамена на запятую.

[uralshans]

Дополнение:
В этом коде: ввод запятой возможен только после ввода цифр; ввод точки и букв ЗАПРЕЩЕН!
НО как только переключаешься на RU раскладку, даже жмякая на клавиши букв вылетает ошибка. Почему?

[VictorM]

Смотрите вот это Kак позволить вводить в TextBox только цифры
Там же найдете и многое другое
ps
Оформляйте публикуемый код тегами CODE, так намного читабельнее, да и в правилах форума это есть.
Выделите код и нажмите "решетку" в меню ввода сообщения

[uralshans]

про CODE спасибо! буду знать!

[EducatedFool]

функция Chr принимает в качестве параметра число от 0 до 255
а коды русских букв больше 255, - потому и ошибка

Используйте вместо неё функцию ChrW, - и проблем не будет