pase de parametros a una pagina

[mveraa]

Private Sub Command1_Click()
MENSAJE.Caption = "INICIANDO..."


Dim oIE As Object, cCad As String, cPar1
Set oIE = CreateObject("InternetExplorer.Application")



cCad = "www.cosa.cl/ingreso.php+ "?user=" + USER.Text + "&clave=" + CLAVE.Text



oIE.MenuBar = True
oIE.TOOLBAR = True
oIE.Visible = Form3.NAV.Text
oIE.Navigate2 (cCad)

Dim i As Long
i = 0



While (oIE.locationurl <> "http://www.cosa.cl/ingreso.php/aceptado")

If oIE.locationurl = "http://www.cosa.cl/ingreso.php/negado" Then
MsgBox "USUARIO NO DETECTADO", vbCritical

End


End If

i = i + 1





Wend





oIE.quit






ojala te sirve , paso los parametros via get.
un saludo