Access VBAにてLong型にNullを入れるか、エラー番号94のNull不正エラーを回避したい

今、テーブルから取得した値を、別のテーブルに書き込む処理を行うVBAのプログラムがあります。
------------------------------
dim db1 as dao.recordset
dim hensu1 as long
・
・
・
tSQL = "insert into テーブルB("
tSQL = tSQL & " 社員ID,"
tSQL = tSQL & " 社員名,"
tSQL = tSQL & " 部署ID,"
tSQL = tSQL & " 部署名,"
tSQL = tSQL & " 在籍月数"  
tSQL = tSQL & " 入社年)"    
tSQL = tSQL & " values("
tSQL = tSQL & " db1.fields("値1").value & "'"
tSQL = tSQL & " db1.fields("値2").value & "'"
tSQL = tSQL & " db1.fields("値3").value
tSQL = tSQL & "," & hensu1
tSQL = tSQL & ",'" IIf(CLng(db1.fields("値4").value) <= 10, "*", "") & "'"
tSQL = ・・・ 
・
・
・
------------------------------  

ここで「tSQL = tSQL & ",'" IIf(CLng(db1.fields("値4").value) <= 10, "*", "") & "'"」の箇所の後にエラー処理に飛び、「Nullの使い方が不正です」とエラーメッセージが表示されてしまい、VBAが止まってしまいます。