>>253
うん、間違ってたゴメス
次の二つを呼び出して5000000回試行したら、平均して1が5.5秒、2が6秒程度だった。
さすがにここまでいくと、あんまり早さにこだわる必要なさそうですね。

Function CheckNumeric(ByRef MyNumber As String) As Boolean
Dim MyCheckRegPattern As String
If Len(MyNumber) > 0 Then
MyCheckRegPattern = "\d{" & Len(MyNumber) & "}"
If Regex.IsMatch(MyNumber, MyCheckRegPattern, RegexOptions.Compiled) Then
CheckNumeric = True
Else
CheckNumeric = False
End If
Else
CheckNumeric = False
End If

End Function