vb Code:
  1. Listings.List1_status_adjstmenttxt.Text = Format((Val(Listings.List1_lptxt.Text) * Val(Me.statusadjstvaltxt.Text)) / 100, "#,###")

This should be ok