Die Funktion "String(m, n)" gibt eine Zeichenkette von m-Mal dem Zeichen n zurück.
"A = String(2, 6)" gibt also 2 mal das Zeichen mit dem Ascii-Code 6 zurück, also zwei schwarze Kästchen.
So wie ich dich verstehe, musst du die Zeile "A = String(2, 6)" hierdurch ersetzen:
Code:Dim B as Integer B = Len(A) B = B - 60 '60 mit der Länge des Textes ersetzen, den du weg haben willst A = Right(A, B)
Lesezeichen