程序运行暂停的问题

我在程序过程中调用了另一个窗体，以便获取该窗体中的一个变量到本程序中使用，如何让本程序中途暂停？？

…………
            shenfenshibie.Show()  '在此处进入一个身份验证窗体，获取身份验证密码“shenfenyzh”
            '我想在此处程序暂停，等待身份验证，但是不能停止。
            If mepussword <> shenfenyzh Then
                MsgBox("您的身份未通过验证，不能进行初始化", vbOKOnly, "告知")
                Exit Sub
            End If