소스오류확인좀요

Private Sub Command1_Click()
w1.Document.loginFrm.email.Value = Text1.Text
w1.Document.loginFrm.passwd.Value = Text2.Text
End Sub
Private Sub Form_Load()w1.Navigate2 http://www.kdisk.co.kr/main/module/logout.php?ref=End Sub
대체무슨이유로 오류가뜨나요?한 한달전인가 기억은가물가물한데전에이렇게인가해서 로그인됬었는데 지금은안되네요?