public sub Judge()
    dim i as variant
    i=inputbox("请输入数字")
    if not isnumeric(var(i)) then
        msgbox "error"
    end if
end sub

不是啦，用Ｃ的．
#include "conio.h"
#include "ctype.h"
#include "stdio.h"
main()
{   float a;
    char b;
    printf("Enter one number:");
    do{scanf("%f",&a);b=a;
       if(isalpha(b)==8)
          printf("Error!\n");
       else
          
          printf("%f",a);}
    
    while(isdigit(a)==8);
          printf("\n");
    getch();
}
想判断输入的是字母或数字，可字母输入时却是以ＡＳＣＩＩ码储存的，也是个数字来的，所以不知道在这一段scanf("%f",&a);b=a;不知道怎定义b与a喽．还有用isdigit(a)和isalpha(b)判断时正确时返回值＂８＂，而不是书上说的＂１＂，为啥这样的呢？晕晕的～～

返回以0或者非0来判断就可以了
不要判断具体是多少