调试：Ctrl+Shift+F8 跳入下个断点，F8单步跳入
mid函数从字符串中返回指定数量的字符。
语法
Mid(string, start[, length])
对语法的理解就是：返回string中从start开始的后面的length长度的字符串
string是必需的参数，如果string包含Null，返回结果也将是Null。
start必需的参数，string中被取出部分的字符位置。需要注意的是如果start超过了string的字符数，Mid 返回零长度字符串 ("")。
length是可选参数，表示要返回的字符数，如果省略或length超过文本的字符数（包括start处的字符），将返回中从start到末尾的所有字符。
实例
Dim MyString, FirstWord, LastWord, MidWords MyString = "Mid Function Demo" 建立一个字符串。 FirstWord = Mid(MyString, 1, 3) ' 返回 "Mid"。 LastWord = Mid(MyString, 14, 4) ' 返回 "Demo"。 MidMidWords = Mid(MyString, 5) ' 返回 "Funcion Demo"