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