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.1 ベストアンサー 回答者： nnfuji 回答日時： 2005/12/19 20:08

If 条件１

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

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

この回答への補足

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

補足日時：2005/12/19 20:27

No.2 回答者： nnfuji 回答日時： 2005/12/19 21:26

Else if

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

とすればいいのです。