VB.net文本框只允许输入数字与. 利用正则表达式验证IP地址

文本框只允许输入数字或 . 并且验证IP地址输入是否合法
If Not System.Text.RegularExpressions.Regex.IsMatch(Me.txtIP.Text, "^/d{1,3}/./d{1,3}/./d{1,3}/./d{1,3}$") Then
CCDC.Utility.msg.ShowWarning("服务器地址输入不正确。")
Me.txtIP.Focus()
Return False
End If

输入的是否是数字或.
Private Sub txtIP_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtIP.KeyPress
e.Handled = True
If System.Text.RegularExpressions.Regex.IsMatch(e.KeyChar, "^[0-9]|/.$") OrElse (Asc(e.KeyChar) = Keys.Back) Then
e.Handled = False
End If
End Sub