Thanks Marvin for the link, I used this and it works:

If Not CansimCell Is Nothing Then
Cell.Value = Right(CansimCell, 10)