Usar visual basic para desplegar múltiplos de 4 entre 60 y 20 acompañados de su

PUBLIC SUB Button1_Click()
DIM A AS Integer
A = 60
DO WHILE A >= 20
ListBox1.Add(A)
A = a - 1
LOOP END