"d" and "e" will convert the remaining portion of the number as an exponent, which is why it is returning as a "true" value. Try using InStr function to find "d" or "e" in your text string.
Otherwise you could build your own function to replace IsNumeric:
Code:
Public Function CharacterCheck(Text As String) As Boolean
Dim i As Integer
Dim gold As String
gold = "1234567890"
For i = 1 To Len(Text)
If InStr(gold, Mid(Text, i, 1)) <> 0 Then
CharacterCheck = False
Else
CharacterCheck = True
Exit For
End If
Next i
End Function