Mid Function

From Office VBScript