リスト１：マルチステートメントを使った条件分岐処理 ※最大値を示すMAX_NUMという記号定数が定義されているものとします intMembersCount = Val(txtMembersCount.Text) If intMembersCount > MAX_NUM Then 　MsgBox "値が最大値を超えているので、最大値で処理を続けます": _ 　 　intMembersCount = MAX_NUM: txtMembersCount.Text = CStr(MAX_NUM) End If 注意：レイアウト上、"MsgBox・・・MAX_NUM) "は２行で表示されていますが、 実際のコードでは１行で記述します。 本文へ戻る