Tausch mal dieses Monster an If...Then..Endif-Verschachtelungen gegen ne Select Case aus. So ist das nicht gerade übersichtlich. Und Nachzählen, ob die Anzahl an End If stimmt will glaub ich keiner.

Select Case Wert
Case 1: Zeichen = A
Case 2: Zeichen = B
....
End Select