Udskriv med tusindtalsseperator

Jeg har nogle store tal i et array, som jeg gerne vil have tusindtalsseperator på når jeg udskriver i fx. msgbox'e.

Fx. således;

Sub test()

  Dim ImputArray() As Variant
  ReDim ImputArray(1)
  ImputArray(1) = 1000
  msgbox "ImputArray var " & ImputArray(1)

End Sub

Der skal msgbox'en helst skrive "ImputArray var 1.000" (altså med punktummet :))