[mr_mgm]

كود :

Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus

        TextBox1.Text = Format(Val(TextBox1.Text), "#0.00")

    End Sub