Sorry,

I have tried the following code

Sub test()
Dim var, var1
var = ActiveCell.Value
var1 = Left(var, 3)
Debug.Print var1
End Sub

and it worked fine on my machine (Excel 2000). There should not be a
problem with your code but I guess that doesn't help you.