You could try any of these.
Code:
Private Sub UserForm_Initialize()
TextBox1 = Range("B1").Value
TextBox2.Value = Format(Range("B1"), "$###.00")
TextBox3 = Sheets("Sheet1").Range("B1").Text
TextBox4.Value = Format(Range("B1"), "$###.##")
TextBox5.Value = Format(Range("B1"), "$0,000.00")
End Sub