DECLARE SUB REMOVE() REM REM Das ist kein Kommentar Dim XRem As Integer REMOVE SUB REMOVE () CLS END SUB