>number = IIf(IsNumeric(Text1.Text) = True, CInt(Text1.Text), 0)
文字列が入ったら、エラーになるように作成しています。
IIF関数の式の評価と、Ｔｒｕｅ、Ｆａｌｓｅの時の、Ｔｒｕｅ／Ｆａｌｓｅ時に実行される部分の、
評価が、何時行われるかについて、自分なりに、調べるなり、テストしてみるなり。
エラーになっている部分は、お判りですよね？
’
IIFは、有るけど、余り使われない関数／コマンドの一つです。
使われない理由の一つが、今回の様な場合に、
エラー処理を行いにくい、１行が長くなりがち。
上手に使えば、コードが見やすくなりますが、
ＩＩＦ部分でエラーが起きた場合には、デバッグが面倒だと思います。
’
使いどころが、限られますが、知っていると、たまーに使える場面がでてきます。
’
普通は、ＩＦ文／ＳＥＬＥＣＴ文など、条件文で書いた方が、
デバッグしやすいです。