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
MyString = "Mid Function Demo" 建立一个字符串。
FirstWord = Mid(MyString, 1, 3) ' 返回 "Mid".
LastWord = Mid(MyString, 14, 4) ' 返回 "Demo".
MidMidWords = Mid(MyString, 5) ' 返回 "Funcion