定义子例程。
Sub Name[(VarName1 [As Type][, VarName2 [As Type][,...]])]
语句块
End Sub
Name:子例程的名称。
VarName:要传递给子例程的参数。
Type:类型声明关键字。
Sub Example
REM some statements
end sub