togli .Text:
codice:
str2 = Mid$(Form_InserimentoLocalità.CasellaCombinata21, 1, 4) 
...