测试没有问题:
Select Case e.Path
Case "test.htm",""
Dim wb As New WeUI
With wb.AddButtonGroup("", "bng2", True)
.Add("btn1", "Dialog1").Attribute = """
End With
With wb.AddDialog("", "dlg1", "提示", "您的订单正在派送,请注意查收!")
.AddButton("btnOK", "确定").Attribute = """
End With
e.WriteString(wb.Build)
End Select