I have created this:

Public Sub threeChars()
Dim strValue As String
'
strValue = ActiveCell.Text
strValue = strValue & "___"
' 3 extra characters so next statement will not gif an error
strValue = Left(strValue, 3)

MsgBox strValue
End Sub

Check your regional settings you might need:

Public Sub threeChars()
Dim strValue As String
'
strValue = ActiveCell.Text
strValue = strValue & "___"
' 3 extra characters so next statement will not gif an error
strValue = Left(strValue; 3)

MsgBox strValue
End Sub


Hoop This Helps

Executor