当点击“确定”按钮时，判断输入到text文本框里的字符是不是正整数，且在要求范围内

dim i as double,j as double
i=val(text1)
j=val(text2)
if not(i>=500 and i<=1390 and i=int(i)) then msgbox "转速设置不合格"
if not(j>=0 and j<=600000 and j=int(j)) then msgbox "采集点数不合格"

如果text1输入字符串  用val转换 是不是会报错

是吗？你应该试下嘛。
其实，不用val才会报错的，用val转换，如果碰到非数字的字符就以0返回。