פונקציה שבודקת אם המחרוזת היא מספר

לאחר תסבוכים רבים עם פונקציית ה- isnumeric המקורית, החלטתי לבנות מחדש את אותה פונקציה לפי צרכי.
הפונקציה שבניתי היא:


function isnumeric(val)
    if val="" or isempty(val) or isnull(val) then
        isnumeric=false
    else
        dim newval
        newval=true
        dim i
        dim char
        for i=1 to len(val)
            char=mid(val,i,1)
            if char<>"0" and char<>"1" and char<>"2" and char<>"3" and char<>"4" and char<>"5" and char<>"6" and char<>"7" and char<>"8" and char<>"9" then
                newval=false
                exit for
            end if
        next
        isnumeric=newval
    end if
end function

הפונקציה בודקת שכל אחד ואחד מהתווים במחזורת זו ספרה בין 0 ל- 9.
הפונקציה לא מתחשבת במספרים שליליים ועשרוניים.
אשמח לקבל הצעות לשיפור וייעול.