Sub rightDemo() Dim strPhone As String strPhone = "123-1231233" Dim strLocalNumber As String strLocalNumber = Right(strPhone, 7) Debug.Print strLocalNumberEnd Sub