Data Type VisualBasic Script

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