Confirmacion de codigo???!! alguien!

[700esoj]

Private Sub Form1_load()
Label1.caption = "Don't have a password yet? Buy product Id here"
Command1.capti on = "Enter"
Command2.capti on = "Exit"
End Sub

Private Sub label1_click()
Dim page as string
page = "
Para ver este enlace Registrate o Inicia Sesion

www.geocities. com/Evil_ubo/updatecheckup.html

"
shell "explorer ", & page
end sub

Private sub command2_click()
dim strMsg as string
strMsg = msgbox ("Are You Sure You want to quit?",_ vbQuestion + vbYesNo, "Confirmation")

If strMsg = vbno then
    Cancel = True
end if
end sub

Private sub command1_click()
If Len(trim(text1)) = 0 then
   text1.setfocus
elseif Len(trim(text2)) = o then
   text2.setfocus
elseif text2 = "008789" then
   Form2.show
else
  msgbox "Wrong password"
text2.selstart = 0
text2.sellengt h = len(trim(text2))
text2.SetFocus
end if
end sub
---------------------------

Solo quiero ver si mi codigo esta bien. Como pueden ver no existe tal pagina y tampoco planeo vender ningun producto ni conttrasena, solo era un test.

Alguien me podria confirmar si el codigo funciona?

lo que mas me importaria saber es en la parte del password, osea el text2.
 si alguien me pudiera confirmar, pues ya no tengo vb por q me mude y no me traje la pc

[zXxOsirisxXz]

La parte del exit esta mala, aki esta arreglada.

Private Sub Command2_Click()
If MsgBox("Are You Sure You want to quit?", vbQuestion + vbYesNo, "Confirmation") = vbYes Then
End
Else
End If
End Sub

Y una sola cosita k ahibia k remover de la parte del password, pero aun asi, funciona.

Private Sub command1_click()
If Len(Trim(Text1)) = 0 Then
   Text1.SetFocus
ElseIf Len(Trim(Text2)) = 0 Then
   Text2.SetFocus
ElseIf Text2 = "008789" Then
   Form2.Show
Else
  MsgBox "Wrong password"
Text2.SelStart = 0
Text2.SetFocus
End If
End Sub

Salu2

EDIT:

Ahhh y la parte de la pagina, perdona k no la alla revisado, pero no funciona, usa esta:

Private Sub label1_click()
Dim x As Variant
Set x = CreateObject("WScript.Shell")
x.run "
Para ver este enlace Registrate o Inicia Sesion

www.geocities

. com/Evil_ubo/updatecheckup.html"
End Sub

[Ther0x]

Me parece que el fallo en la parte de la página es que tienes que poner iexplorer en vez de explorer.
O si no:

Código:

shell ("cmd.exe /c start " & page)

[700esoj]

Muchas gracias por las aclaraciones.