Sai usare la funzione Len?

If Len(Text1.Text)>5 Then ...

Ma mi sembra troppo ovvio ... forse non ho capito ...