CLng("\1,000")

"\1,000" * 1

Dim hoge As Long
hoge ="\1,000"

数値(整数･実数)型に変換、数値型変数に代入、算術演算
どれをやっても1000になる。
これがVBの便利さであり、遅さの原因でもある。