Retornar os parâmetro do querystring

Sub ExplodeQueryString(QueryString As String, AgentArgs List As String)

Dim Args As String
Args = RightStr(QueryString, "OpenAgent&")
ArgsList = Evaluate ({@Explode("} & Args & {"; "&")})
Forall Arg In ArgsList
ArgKey = LeftStr(Arg, "=")
ArgValue = RightStr(Arg, "=")
AgentArgs(ArgKey) = ArgValue
End Forall

End Sub