VB 里if语句判断错误

问题出在少了一个end if
在最后面加上一个end if则answer就不会被执行程序就对了.
因为If a < b Then后面没有end if, 相当于if a<b then nothing, 虽然判断失败但仅是nothing语句没有被执行，程序接着执行下一条语句，即answer= ...

a=33
b=20
If a < b Then '明明是 a<b,那么照理不会执行answer那行语句的，可是就偏偏执行理论，难道是软件判断有错误？？？？？？？？？？？？？？？？？？

answer = MsgBox("您值" & H11 & "对为" & Pfh1 & "大度" & Pfd1 & "，满条件，结束请直接点“否”", 4 + 32 + 256, "提示")
If answer = vbYes Then
End If
End If

你丢了一句end if

Private Sub Form_Load()
a = 33
b = 20
If a < b Then
answer = MsgBox("您值" & H11 & "对为" & Pfh1 & "大度" & Pfd1 & "，满条件，结束请直接点“否”", 4 + 32 + 256, "提示")
If answer = vbYes Then
MsgBox "你这里下一行少写了一句end if"
End If
End If
End Sub