Format Textbox value

[redspanna]

Hi all

I have this code that places the 'Value' of the TEXTBOX into a specific cell,
I want the value to be pasted as TEXT, how can this code be changed

Sheets("Heavy").Range("F1") = TextBox1.Value

thanks

 

[VoG]

Try

With Sheets("Heavy").Range("F1")
    .Value = TextBox1.Value
    .NumberFormat = "@"
End With

 

[redspanna]

ahhh OK thanks