제가 로그인성공했을때만 폼띄우기 하려면.

If ID = Or PW = Then
MsgBox 아이디나 비밀번호를 제대로 입력하시기 바랍니다, vbCritical, 안내
Exit Sub
End If
Dim WinHttp As Objectbrbject
Set WinHttp = CreateObject(Winhttp.WinHttpRequest.5.1)
WinHttp.Open POST, https://nid.naver.com/nidlogin.login
WinHttp.SetRequestHeader Content-Type, application/x-www-form-urlencoded
WinHttp.SetRequestHeader Referer, https://nid.naver.com/nidlogin.login
WinHttp.Send enctp=2&url=http://www.naver.com&enc_url=http://www.naver.com&postDataKey=&saveID=0&nvme=0&smart_level=1&id= & ID & &pw= & PW
WinHttp.WaitForResponse
If InStr(StrConv(WinHttp.ResponseBody, vbUnicode), https://nid.naver.com/nidlogin.login) Then
MsgBox 로그인에 실패하였습니다., vbCritical, 오류
Exit Sub
Else
MsgBox 로그인에 성공하였습니다., vbInformation, 성공
Command1.Enabled = False
End If
End Sub

-------------------------------------------------------------------------------------------------------------------

이소스인데요 어떻게 할까 고민됩니다.
Form2.show를할껀데
로그인이 성공만되면