要运行多行代码，必须使用多行（或块）语法。多行（或块）语法包含 End If 语句
下例示范了多行语法。如下所示：
Dim myDate '定义一个变量
myDate = #2/13/95# '为变量赋值，时间：95-2-13
If myDate < Now Then '与当前时间判断大小
myDate = Now‘小则将当前时间赋值MyDate，并输出重新赋值的myDate的值
MsgBox myDate '输出为：95-2-13
End If
条件为 True 和 False 时分别运行语句
可以使用 If...Then...Else 语句定义两个可执行语句块：条件为 True 时运行某一语句块，条件为 False 时运行另一语句块。具体示例如下所示：
Dim myDate '定义一个变量
myDate = #2/13/2222# '为变量赋值，时间：2222-2-13
If myDate < Now Then '与当前时间判断大小
myDate = Now '小则将当前时间赋值MyDate，并输出重新赋值的myDate的值
MsgBox myDate
Else
MsgBox myDate '大则直接输出myDate的值，输出为：2222-2-13
End If
对多个条件进行判断
If...Then...Else 语句的一种变形允许您从多个条件中选择，即添加 ElseIf 子句以扩充 If...Then...Else 语句的功能，使您可以控制基于多种可能的程序流程。具体示例如下所示：
Dim value '定义一个变量
value = 10 '变量赋值为10
If value = 0 Then '判断变量的值大小,如果相等则输出变量值
MsgBox value
ElseIf value = 1 Then
MsgBox value
ElseIf value = 2 then
Msgbox value
Else
Msgbox "数值超出范围！" '如过都不相等，则输出”数值超出范围！”
End If
可以添加任意多个 ElseIf 子句以提供多种选择。使用多个 ElseIf 子句经常会变得很累赘。在多个条件中进行选择的更好方法是使用 Select Case 语句。
