VB中在do until ... loop 循环中怎样设置点击按钮推出循环？

Public b '设置B为公有变量 Private Sub Form_Load() ...... Do Until ...... ...... If b=True Then Exit Do '如果B为真退出循环 Loop ...... End Sub Private Sub ComExit_Click() b=True '设置B为真 End If