Visual Basic - me pueden ayudar a poner una funcion en visaul basic?

Private Sub Eleventoquequieras()

'txtndecimales es el texto que dice cuantos decimales tienes

'txtaformatear es el texto o el numero que se va a formatear 

'txtformateado ' es el resultado 

Formato = "$####." & String(Val(txtndecimales.Text), "#") ' aqui das el formato

txtFormateado.Text = Format(txtaformatear.Text, Formato)

End Sub