Function IsNum(Num)
For i=1 To len(Num)
If asc(mid(Num,i,1))<48 or asc(mid(Num,i,1))>57 Then
IsNum=False
Exit Function
Else
IsNum=True
End If
Next
End Function