Select Case TestExpression
〔Case ExpressionList-n
〔Statements-n〕〕...
〔Case Else
〔ElseStatements〕〕
End〔Select〕
' 引数Resultを判定しメッセージを組み立て,"Result.txt"に出力する。
Sub LogOutput ( Result )
Dim MessageText
Select Case Result
Case "OK"
MessageText = " 正常終了しました。 " & "Status=[" & Result & "]"
Case "NG"
MessageText = " 異常終了しました。 " & "Status=[" & Result & "]"
Case Else
MessageText = " 予期せぬエラーが発生しました。 " & _
"Status=[" & Result & "]"
End Select
Message ( Target_File ,_SCF_+"Result.txt" ,MessageText _
,128 ,1024 )
End Sub