Dim lngNum as Long
Dim sStr as String
Dim sStr1 as String

sStr1 = " tree1234 "
sStr = Left(sStr1,5)
lngNum = cLng(Trim(Right(sStr1,5)))

--
Regards,
Tom Ogilvy

"Johnny" wrote in message
...
If I have a string " tree1234 ". How can I separate it
into 2 cells " tree " and the most important the " 1234 "
should be in value format. Pls advise.

Johnny