Se proprio non puoi rendere più compatto il codice, o se lo vuoi fare in un secondo momento, per superare la situazione attuale potresti inserire in un punto che deciderai, ad esempio dopo "If Text1(4) = sqf$(x) And risc(x) < risf(x) And risc(x) < risf(x) + 5 Then peso4 = peso4 + 300" il comando "Call SecondaParte" ed in un modulo bas continuare la routine con "Public Sub - o Private Sub - SecondaParte()" e così via in altri moduli se necessario.
Ciao.