utilizza un array

dim arr(20)

arr(0) = "A"
arr(1) = "B"

ecc ...