要求编写一段代码，用Mid 函数来返回某个字符串中的几个字符。
代码：
Sub 示例_1_028()
Dim Myzfc$, qmzfc$, mwzfc$, zjzfc$
Myzfc = "HELLO SHANGHAI EXPO 2010"
qmzfc = Mid(Myzfc, 1, 5) ' 返回 "HELLO"。
mwzfc = Mid(Myzfc, 21, 4) ' 返回 "2010"。
zjzfc = Mid(Myzfc, 7) ' 返回 "SHANGHAI EXPO 2010"。
End Sub
代码详解
1、Sub 示例_1_028()：宏程序的开始语句。宏名为示例_1_028。
2、Dim Myzfc$, qmzfc$, mwzfc$, zjzfc$ ：声明变量均为字符串变量。
3、Myzfc = "HELLO SHANGHAI EXPO 2010"：把指定的字符串赋给字符串变量Myzfc。
4、qmzfc = Mid(Myzfc, 1, 5) ： 运用Mid 函数从左边第一个字符开始取5个字符，把结果赋给变量qmzfc,返回 "HELLO"。如果函数第2个参数超过第一个参数的字符数，Mid 将返回零长度字符串 ("")。
5、mwzfc = Mid(Myzfc, 21, 4) ： 运用Mid 函数从左边第21个字符开始取4个字符，把结果赋给变量mwzfc,返回 "2010"。
6、zjzfc = Mid(Myzfc, 7) ： 运用Mid 函数从左边第7个字符开始取直到最后的所有的字符，把结果赋给变量zjzfc,返回 "SHANGHAI EXPO 2010"。这里函数第3个参数省略了，表示从第2个参数开始直到最后所有的字符。
Mid 函数
返回 Variant (String)，其中包含字符串中指定数量的字符。
Mid(string, start[, length])
Mid 函数的语法具有下面的命名参数：
string必要参数。字符串表达式，从中返回字符。如果 string 包含 Null，将返回 Null。
start必要参数。为 Long。string 中被取出部分的字符位置。如果 start 超过 string 的字符数，Mid 返回零长度字符串 ("")。
length可选参数；为 Variant (Long)。要返回的字符数。如果省略或 length 超过文本的字符数（包括 start 处的字符），将返回字符串中从 start 到尾端的所有字符。