imprimir lo numeros del 10 al 100 de diez en diez utilizano el ciclo de repeticion for

DIM A AS Integer
  FOR A = 10 TO 1000 STEP 10
  ListBox1.Add(A)