Va be' ... comunque questa linea

redim s(lunghezza(mod 4000))

deve essere

redim s(m)