Dim dr21 As DataRow =DataTables("报价输出记录表").sqlfind("报价产品类型 =  \'"& leixing &"\'  And ph And  材料名称 = \'产品成本合计:\'")
If dr21("材料规格") = ""  Then

With wb.AddDialog("","dlg2", "是否继续计算","程序计算正在进行中,点击【确定】将覆盖上一次的计算结果!")
    With .AddButton("btnCancel","取消")
        .Kind = 1
        .Attribute = "oncli ck=\'hist ory.back()\'"
    End With
    .AddButton("btnOK","确定").Attribute= ""

End With
wb.AppendHTML("<script>  show(\'dlg2\')</script>")
                    e.WriteString(wb.Build)
                    Return False

End If

\'将第三页的值传过来,将其存盘
Dim cs16 As Integer = e.postValues("cs16")    \'空载损耗标准值(w)
Dim cs17 As Integer = e.postValues("cs17")    \'空载损耗最大允许偏差(%)
Dim cs18 As Integer = e.postValues("cs18")    \'负载损耗标准值(w)
Dim cs19 As Integer = e.postValues("cs19")    \'负载损耗最大允许偏差(%)

。

。

。
问题：点击“确定”如何跳出if语句 继续执行绿色的代码？如何写？请大师指点。