The Format function formats expressions in the style specified
Sub FormatData() Debug.Print Format$(50, "Currency") End Sub