Sub Name〔(ArgList)〕
〔Statements〕
〔Exit Sub〕
〔Statements〕
End〔Sub〕
' メッセージダイアログを表示する
' SubプロシージャOperateMessageをCALLする。
Dim Task
Task = "file update"
Call OperateMessage("Start")
:
Call OperateMessage("Stop")
Sub OperateMessage(status)
Dim stamp
stamp = Date + " " + Time
MessageBox( "[" & status & "]" & Task & " at " & stamp)
End Sub