Data Type VisualBasic Script

Sub leftDemo()
    Dim strPhone As String
    strPhone = "123-1231233"
    Dim strArea As String
    strArea = Left(strPhone, 3)
    
    Debug.Print strArea
End Sub