Won't format as text

[Montez659]

I have a userform that I have the user input some information on. Some information is sensitive, so I have only the last five digits show. This part I have down fine. The problem is that when storing the last five digits, sometimes the numbers begin with zero's. I can't get Excel to quit dropping those zero's, even if it is stored as text. Right now I have been using one of these two:

field1 = .range("A" & i).text


.range("B" & i) = format(field1, Text)
or
.range("B" & i) = format(field1, "@")

Any help is appreciated.

 

[hatman]

try

.range("B" & i) = chr(39) & field1

or

.range("B" & i).NumberFormat = WorksheetFunction.Rept(0, len(field1))
.range("B" & i) = field1

 

[Norie]

When are you formatting as text?

You should be doing it before you place any value in the cell.

 

[Montez659]

I will give it a try, thanks for the help.

 

[Montez659]

I will try that too Norie, thanks.