VBA to stop excel outputting string as date

[osx99]

I have the following code

sub test()
string2 = "2/13 12L, Hill Forts Henry[9/2F]11-8"
Dim position As String
position = Trim(Left(Trim(string2), InStr(1, Trim(string2), " ", vbTextCompare)))
MsgBox (position)
Range("a1").Value = position
End sub

This should output 2/13 into cell a1 but excel converts it to a date 13-Feb

Is there a way to stop this happening?

Thanks,
os

 

[SkipVought]

Hi,

Excel is being "helpful" faq68-5827. You must write it as TEXT...

With Range("a1")
    .NumberFormat = "@"
    .Value = position
End With

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[AnotherHiggins]

Format the cell as TEXT

[tt][blue]-John[/blue][/tt]
[tab][red]The plural of anecdote is not data[/red]

Help us help you. Please read FAQ 181-2886 before posting.