Text1.Text = Format(contatore, "#,###")

P.S. Studia la funzione Format e sarai meno "ignorante" ...