It was the comma that was causing the problem.
Changed the code to:
Invoice_Amount.RowSourceType = "Value List"
Invoice_Amount.RowSource = Replace(Format(Nz(Cost), "Currency"), ",", vbNullString)
You don't get the comma any more but at least it puts it on the one row or column now.