Im Batch Führende und Nachfolgende Leerstellen entfernen

Hallo,

ich habe eine 4 Zeilen Routine zum Entfernen führender und nachfolgender Leerstellen erstellt.
Beispiel: [ Dies ist ein Text mit führenden und nachfolgenden Leerstellen ]

  @Call :Trimm %Variable% 
                 :Trimm 
                 @SET Variable=%*
                 Goto :EOF 

Ergebnis: [Dies ist ein Text mit führenden und nachfolgenden Leerstellen]

Eine Routine zum Testen:

::-----------------------------------.
:: 
::     Testroutine §Trimm
:: 
::   Blanks Vorn Hinten entfernen
:: 
::-----------------------------------' 
::
@Setlocal EnableExtensions
@CHCP 1252
@ECHO OFF
@COLOR E0
@ECHO ^[1m

:: Dieser Teil zum Text initialisieren_______________
@ECHO.
@ECHO =^>   Eigenen Text eingeben ^<=
@ECHO =^> oder Text mit ^" kopieren ^<=  
@ECHO "  Leerstellen Vorne und Hinten entfernen  "  
:Neu
@SET /P Variable=
@SET  Variable=%Variable:"=%  
@ECHO.
@IF Variable=e @GOTO :EOF
@ECHO @Call :Trimm [%Variable%] ausführen 
:: Dieser Teil zum Text initialisieren ^^^^^^^^^^^^^^


:: Hier die eigentliche Routine (1 + 3 Zeilen Subroutine :Trimm)
@Call :Trimm %Variable%


:: Das Ergebnis_______________________________________
@ECHO.             [%Variable%]
@ECHO.
@ECHO Nächste Eingabe  oder  E_nde
@GOTO :Neu
@ENDLOCAL
@GOTO :EOF
:: Das Ergebnis________________________^^^^^^^^^^^^^^^

:: (Wichtig! Hinter %* keine Leerstellen!!)

:Trimm 
@SET Variable=%*
Goto :EOF