?isnumeric("1234A45") False
Dim i As Integer For i = 33 To 126 Debug.Print i & vbTab & IsNumeric("123" & Chr$(i) & "45") Next i
?val("123D45") 1.23E+47 ?val("123E45") 1.23E+47