...
if Kunde=1 then
  call AufräumenKunde1
elsif Kunde=2 then
  call AufräumenKunde2
end if
...

Private Sub AufräumenKunde1()
   With New DLL1.CLS
   ...
   end with
End Sub

Private Sub AufräumenKunde2()
   With New DLL2.CLS
   ...
   end with
End Sub