You could both simplifiy your code and achieve the desired result with:
Code:
With ActiveDocument
.Bookmarks("NumberKms").Range.Text = Format(Me.KMsTravelled.Value, "#,##0")
.Bookmarks("KMsCost").Range.Text = Format(Me.KMsTravelled.Value * 0.85, "$#,##0.00")
End With