По ограниченному вводу символов - VB

Формулировка задачи:

Добрый вечер. Прошу помощи в коде. Надо что бы результат был только 2 числа и если дробь то ещё 2 числа (12,34). Т.е Максимум можно ввести два чила, но если ставим запятую то ещё два.

Private Sub Text1_KeyPress(KeyAscii As Integer)
    txt = Text1 
    Select Case KeyAscii
        Case 13: Text1 = FormatNumber(txt, 2)
        Case 8: 
        Case 44, 46: KeyAscii = IIf(InStr(1, txt, ".") > 0, 0, 46)
        Case 48 To 57: KeyAscii = IIf(InStr(1, txt, ".") > 0 And Len(txt) - InStrRev(txt, ".") > 1, 0, KeyAscii)
        Case Else:   KeyAscii = 0 
    End Select
End Sub

Вообще: хотел отключить всё кроме цифр, точки и Backspace

Решение задачи: «По ограниченному вводу символов»

textual
                            Листинг программы 
                        

                            Private Sub Text1_Change()
t = Text1.Text
If (t Like "" Or t Like "#" Or t Like "##" Or t Like "##." Or t Like "##.#" Or t Like "##.##") = False Then Text1 = Mid(t, 1, Len(t) - 1)
Text1.SelStart = Len(Text1.Text)
End Sub
                        