Ввод в TextBox только значений Double - VB

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

Как мне сделать что бы в текстбокс можно было вводить только цифры и запятую?

Решение задачи: «Ввод в TextBox только значений Double»

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

                            Private Sub Text1_KeyPress(KeyAscii As Integer)
   Call KeyPress(KeyAscii, Text1)
End Sub
Sub KeyPress(KeyAscii As Integer, Text As TextBox)
   Select Case KeyAscii
      Case 48 To 57, 8  ' цифры и <Backspace>
      Case 44, 46       ' точка и запятая
         KeyAscii = 46
         ' не позволяет вводить знак запятой повторно
         If InStr(Text.Text, ".") <> 0 Then
            KeyAscii = 0
         End If
      Case 13           ' клавиша <Enter>
 
      Case Else
         KeyAscii = 0   ' остальные символы не отображаются
   End Select
End Sub
                        