急求函数

Question

我手头有这样一张表，里面的数据有数字的，也有像ZSA123Z这样的数据，又没有这样一种函数，可以判断首位字母是不是数字还是文字。返回值是true 或者 false的。
  又要麻烦大家了

Answer 1

public function fun(byval s as string) as boolean
    dim ch as long
    if s="" then 
        fun=false
    else 
        ch=asc(left(s,1))
        if ch>=&h30 and ch<=&h39  then
             fun=true
        else
             fun=false
        endif
    endif
end function

Answer 2

IsNumeric（）判断是否为数字函数