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)