Récupéré un paramètre d'une url

Bonjour, je cherche a récupéré un paramètre d'une url du type

http://s*.gladiatus.fr/game/index.ph...w&login=1&sh=*

je veut récupéré la valeur de "sh" et ainsi la retranscrire dans un text

après m'être logger comme ceci j'ai des soucis a naviger sur le site a cause du session id . (sh)

Code:

---

1 2 3 4 5 6 7 8 9

Dim strPost As String WebBrowser1.Navigate ("http://s*.gladiatus.fr/game/") DoEvents While WebBrowser1.Busy = True DoEvents Wend WebBrowser1.Document.All("login_username").value = (Text2.Text) WebBrowser1.Document.All("login_password").value = (Text3.Text) WebBrowser1.Document.All("loginsubmit").Click

---

Merci pour votre aide