Si hai ragione scusa.

Si mi riferisco alla funzione di VB Mid(string, start[, length])
allora io faccio cosi:

Dim xda as Long
Dim N_Testo Long
Dim Str_Testo as String
N_Testo =len(Recordset(3))
Xda = 1
Do Until N_Testo < Xda
Str_Testo = Mid(Recordset(3), Xda, 200)
inet.OpenURL ("http://wwww.miosito/miapagina_update.php?variabili&testo=" & Str_testo)
Xda = Xda + 200
Loop

Non so se è giusta