怎么使TextBox只能输入1个小数点和2位小数？[VB.NET]

如何使TextBox只能输入1个小数点和2位小数？[VB.NET]
Dim NumChar As String = "0123456789" + Chr(46)
  If (NumChar.IndexOf(e.KeyChar.ToString()) < 0) Then
  e.Handled = True
  Else
  e.Handled = False
  End If

我有TextBox控件加入了这个代码，限只能输入小数点与数字，但却可以输入多个小数点！
现在要限制它只能输入1个小数点，并只能保留两位小数，该如何写代码？

[解决办法]

VB.NET code

//引用 Imports System.Text.RegularExpressionsDim match As Match = Regex.Match("2.25", "^\-?[\d]+(\.[\d]{1,2})?$")                If match.Success Then                    '匹配                Else                    '不匹配                End If