サブルーチンを定義します。
Sub Name[(VarName1 [As Type][, VarName2 [As Type][,...]])]
ステートメントブロック
End Sub
Name: サブルーチンの名前。
VarName: サブルーチンに渡すパラメータ。
Type: 型宣言キーワード
Sub Example
REM ステートメントを入力
end sub