Ich würde es ohne den ganzen If..Then Schnickschnack so machen:

Messung = Getadc(0) / 103 'dann kommen nur Zahlen von 0-9 raus
PortD = X(Messung + 1)