Se pierde el Formato

[asastrem]

Buenas tardes, amigos del foro
tengo una pequeña aplicación que actualiza cifras, entonces para que el usuario no se pierda le puse formato moneda
ejemplo
Private Sub formatMoneda()
txtMontAut.Text = Format((txtMontAut.Text), "Currency")
txtMontQuin.Text = Format((txtMontQuin.Text), "Currency")
txtPagare.Text = Format((txtPagare.Text), "Currency")
txtCantPag.Text = Format((txtCantPag.Text), "Currency")
txtResta.Text = FormatCurrency((txtResta.Text))
txtCantUP.Text = FormatCurrency(txtCantUP.Text)
txtCantMaxCon.Text = FormatCurrency(txtCantMaxCon.Text)
txtAdeuCCon.Text = FormatCurrency(txtAdeuCCon.Text)
End Sub

Al cargar el formulario me despliega bien los textbox con su formato moneda
pero cuando actualizo cifras, se pierde el formato

lo mando a llamar desde
Private Sub frmCifras_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown

ALGUNA IDEA.....