prova a mettere "dim regione as long" sotto a questo
codice:
Dim i As Integer
Dim r As Long
Dim scostamento As Long
Dim InternoForm As Long
Dim diffaltezza As Long
Dim difflarghezza As Long