VBAでifとかelseとかelseifとかの後に書く文

質問

VBAでifとかelseとかelseifとかの後に書く文の出力で
現在プログラムを書きました。２行書く場合
たとえば
else if
『a』を出力させるプログラム
『b』を出力させるプログラム
Sheets("Sheet2").Range("A1").Value = Application.WorksheetFunction.Clean(StrConv(toDateStr(a(0)), vbWide))
Sheets("Sheet2").Range("A2").Value = Application.WorksheetFunction.Clean(StrConv(toDateStr(a(1)), vbWide))
をプログラム書いた場合、実行されるのは『a』を出力させるプログラムだけなのですが、else ifの後は次の1行目しかこのプログラムだと実行できない感じなのでelse ifの中に２行文の内容をいれたいのですが
else if()で全部囲めばいいのか？
else if{}で全部囲んだりするのか？このような全部ひっくるめられるプログラムはないのでしょうか？
お願いします。教えてください

回答No.2

nnfuji

Else if
『a』を出力させるプログラム
『b』を出力させるプログラム
End If　　　　← これが重要
Sheets("Sheet2").Range("A1").Value = Application.WorksheetFunction.Clean(StrConv(toDateStr(a(0)), vbWide))

とすればいいのです。

回答No.1

nnfuji

If 条件１
　　実行文１
ElseIf 条件２
　　実行文２
Else
　　実行文３
End If

とすれば、２つ以上の命令を実行できます。

補足

今のプログラムだとどうしてもElse if の後に前記の２行をいれなくてはならないのですが、くくるようなプログラムはやはりないのでしょうか？