Pues bueno, como recuperes los valores y se los asignes a las variables "A, B, C...N" supongo que ya lo tienes hecho no?
Ya sabes cuantas variables alfabéticas manejas?
Si es así, mételas a un arreglo
|A|B|C|D|E|F|G|
A = 1
B = 2
C = 4
D = 6
E = 8
F = 9
G = 10
Ahora siguiendo con la lógica que llevas, el último índice en tu arreglo será el de mayor valor no, que en este caso corresponde a G, que vale 10, mediante esto puedes saber el número de veces que iterará tu ciclo.
maximo = uBound(arrVariables)
x = ""
For i = 0 to maximo
If eval(arrVariables(i)) = i + 1 Then
x = x & "0"
Else
x = x & " "
End If
Next
Response.Write x
Algo así, es solo una idea.
Salu2,