Consulta web con usuario y contraseña

[ootoo]

Siguiendo otros temas cerrados de este foro he intentado he intentado hacer consulta web con usuario y contraseña pero no lo consigo.

En codigo fuente de la página aparece éstas lineas que imagino corresponde a los campos de usuario y password:

<p>Your Username/Email:<input type="text" name="email" /></p>

<p>Your Password:<input type="password" name="password" /></p>

Mi macro queda así:

nick = "t11235813@hotmail.com"

pass = "descarado"

bch = "My Barchart - Registration | My Barchart Login=" & "052112"

With ActiveSheet.QueryTables.Add(Connection:="URL;" & bch, Destination:=Range("a1"))

.PostText = "email=" & nick & "&password=" & pass

.Refresh BackgroundQuery:=False

End With

Pero no consigo que funcione. Me podeis ayudar?

Gracias de antemano

José