请教众高手一个正则表达式，在线等，马上给分！谢谢！！！

Question

一个正则表达式要求只能输入数字,小数点，正负号，小数点后面最多只允许四位小数。
例如：2.5242，10，3.55，10555.5谢谢！！！

Answer 1

Dim r As Regex = New Regex("^([+-]*\d*)(.\d{0,4})$")
        Dim test1 As String = "1233454.1"
        Dim m As Match = r.Match(test1)
        If m.Success Then
            Console.WriteLine("成功")
        Else
            Console.WriteLine("失败")
        End If