String Functions VisualBasic Script

Sub strDemo7()
   Debug.Print Mid("Test", 2, 2)
End Sub