Function QueryString(Param, Key As String) As String 
   'Accetta:
   '   Param: stringa da parsizzare
   '   Key: chiave di cui cercare il valore
   'Restituisce il valore
   'Es. QueryString("cognome=paperino;nome=paolino;","cognome")

   Const Uguale As String = "=" 
   Const Separ As String = ";" 
   Dim i, j As Integer 
   Dim s As String 

   i = InStr(1, Param, Key) 
   s = Right(Param, Len(Param) - i) 
   i = InStr(1, s, Uguale) + Len(Uguale) 
   j = InStr(i, s, Separ) 

   QueryString = Mid(s, i, j - i) 

End Function