returns a currency formatted with four decimal places:
Sub FormatDemo1() Debug.Print Format("123456", "$00.0000") End Sub