Need Save Numbers From Text Box

[Can_This_Be_Don]

I've a userform which I've just discovered has a problem. Currently if a number is entered into a text box its saved to the worksheet as a number.

Can the code below be modified so that it saves as text?

ActiveCell.Offset(0, 3) = txtD.Value

 

[Joe Was]

myString = Str(459)

"459" can be an actual value as above of some reference to a value!

Sheets("Sheet1").Range("A1").Value = myString