compresi gli spazi?

dim a as integer

a=len(text1.text)