示例：

Dim MyString, FirstWord, LastWord, MidWords

MyString = "Mid Function Demo"    建立一个字符串。

FirstWord = Mid(MyString, 1, 3)    ' 返回 "Mid"。

LastWord = Mid(MyString, 14, 4)    ' 返回 "Demo"。

MidWords = Mid(MyString, 5)    ' 返回 "Funcion Demo"。

mid是用来从文本中的第几位开始取几个字符的函数，其他相关的有left()和right()，

mid(string，start[，length])        

string:字符串对象        

start:是个数子，从左数的第几个数字开始        

length:也是个数子，你要取几个字符，可不填，默认为全部