Mega Code Archive
Left(string, length) returns the specified number of characters from the left end of a string
Sub leftDemo()
Dim strPhone As String
strPhone = "123-1231233"
Dim strArea As String
strArea = Left(strPhone, 3)
Debug.Print strArea
End Sub