TextBox display format currency query

Hi Guys,

Can anyone tell me when I enter a number, say 2456 in this textbox why does it display "$2.45" instead of "$2,456". I've tried fiddling with the ###'s and .'s but it just gets worse.

Private Sub SalaryFNBox_Change()

    SalaryFNBox.Text = Format(SalaryFNBox.Text, "$###,###.##")

End Sub

Thanks in advance