ExcelVBAで数値に３桁区切りのカンマをつけるにはFormat()を使う

Excel 
Dim Value As String
Value = Format(12345, "#,#")

ネタ元