Public Function ChopLeft(Str As String, Chars As Long) As String

'Diese Funktion liefert dir Schneidet die gewünschte

'Anzahl (Chars) Zeichen vom String (Str) links ab und gibt

'den erhaltenen String zurück

  ChopLeft = Mid(Str, Chars + 1, Len(Str) - Chars)

End Function



Public Function ChopRight(Str As String, Chars As Long) As String

'Diese Funktion macht das gleiche wie ChopLeft nur halt

'auf der rechten Seite 

  ChopRight = Mid(Str, 1, Len(Str) - Chars)

End Function