Sub midDemo() Dim strPhone As String strPhone = "123-1231233" Dim strLocalExchange As String strLocalExchange = Mid(strPhone, 4, 3) Debug.Print strLocalExchangeEnd Sub