checking each character in a string

[wence]

a string for example consists of "hdjh568djd"
i want to check every character in the string, if detected that character is not a value then exit the function.
seems like this is not the way to do it?
str="hdjh568djd"
For Each Char In str
If Val(Char) = 0 Then Exit For
Next