Puoi utilizzare questa forma:
codice:
Format(5459.4, "c")   'utilizza il formato specificato nel pannello di controllo di Windows

'altro metodo alternativo
Dim vv As Decimal

vv = 5459.4

TextBox1.Text = vv.ToString("c")