Format VBA expression with comma separator

[Ironman]

Hi

I have the following 2 message boxes

If 1000 - A <= 100 Then MsgBox 1000 - A & " miles to go until you hit " & Range("CG375").Value + 1000 - A
If A > 0 And A <= 10 Then MsgBox "Congratulations! You have now run over " & Range("CG375").Value - A & " miles"

I've tried but I'm unable to amend the code in each line beyond the dot to create a comma separator for the thousands.

Help appreciated!

Thank you.

 

[RoryA]

Use the Format function - eg Format(expression, "#,##0")

 

[Ironman]

Sorted, thanks

If 1000 - A <= 100 Then MsgBox 1000 - A & " miles to go until you reach " & Format(Range("CG375").Value + 1000 - A, "#,##0"), vbInformation, "1,000 Mile Countdown"
If A > 0 And A <= 10 Then MsgBox "Congratulations! You have now run over " & Format(Range("CG375").Value - A, "#,##0") & " miles", vbInformation, "1,000 Mile Countdown"