On Error Resume Next

on error resume next a="我是中国人" FOR i=1 to a if err then msgbox "a的值不应该为字符串，请重新赋值！" err.clear exit for end if msgbox i NEXT