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