Mid(string, start[, length]) returns the specified number of characters from inside the given string : String Function « Data Type « VBA / Excel / Access / Word
Mid(string, start[, length]) returns the specified number of characters from inside the given string
Sub midDemo()
Dim strPhone As String
strPhone = "123-1231233"
Dim strLocalExchange As String
strLocalExchange = Mid(strPhone, 4, 3)
Debug.Print strLocalExchange
End Sub