Dim myString As String ... ' myString wird belegt... 'letztes Zeichen abschneiden: myString = Left$(myString, Len(myString)-1)