長さ0の文字列をNull値に変換する

データを追加するときに長さ0の文字列でエラーがでるときに。。

とりあえず動く。

Public　Function　bn(txtBlank　As　Variant)　As　Variant
'　長さ0の文字列をNull値に変換
　If　txtBlank　=　""　Or　IsNull(txtBlank)　Then
　　bn　=　Null
　Else
　　bn　=　txtBlank
　End　If
End　Function