>>474
　　　Private Const NumericTable As String = "0123456789"
　　　　　　InStr(NumericTable, Mid$(S, i, 1))

　　　　NumericTable を探索開始位置にするとどうなるのでしょうか。