maybe you could format the text box once it has lost focus?

VB Code:
  1. Private Sub txtDispense_Lost_Focus()

  2.  
  3.    

  4.       txtDispense.Text = Format(txtDispense, "fixed")

  5.     

  6.    

  7. End Sub