Problema de programación básica de VB, urgente

Subcomando privado1_Click()

Atenuar A(9) como cadena, n como entero, R como cadena

A(0) = "LING": A(1) = "YI": A(2) = "ER": A(3) = "SAN": A(4) = "SI"

A(5) = "WU" : A(6) = "LIU": A(7) = "QI": A(8) = "BA": A(9) = "JIU"

n = InputBox("Por favor, introduzca Un número entero (dentro de 1000): ")

Seleccione el caso Len(Str(n))

Caso 2

R = A(n)

Caso 3

Si n < 20 Entonces

R = "SHI" + A(n Mod 10)

Si no

R = A(n\10) + "SHI" + A(n Mod 10)

Finalizar si

Si (n Mod 10 = 0) Y (n <> 0) Entonces R = Izquierda(R, Len(R) - 4)

Caso 4

Si n Mod 100 = 0 Entonces

R = A( n \ 100) + "BAI"

De lo contrario, si n Mod 10 = 0, entonces

R = A(n \ 100) + "BAI" + A(n \ 10 Mod 10) + "SHI"

ElseIf (n \ 10) Mod 10 = 0 Entonces

R = A(n \ 100) + "BAI" + "LING" + A(n Mod 10)

De lo contrario

R = A(n \ 100) + "BAI" + A(n \ 10 Mod 10) + "SHI" + A(n Mod 10)

Fin Si

Fin Seleccionar

Imprimir n

Fin Sub