DOTNET零碎要点---字符串截取操作
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