Guten morgen,
so genau bin ich Dein Programm nicht durchgegangen. Ich muss gestehen, als aller erstes habe ich erst einmal alles entsprechend eingerückt, damit es besser lesbar für mich war. Verstehen tue ich die folgenden Zeilen nicht:

If J < 170 Then
S = S + 30
Elseif J >= 170 Then
S = 20
End If

Die Variable S wird nirgends benötigt. Oder ist das hier nicht der ganze Source-Code?

Tschuesss Peter