Function VomStick() As Boolean
    Dim ordner = New IO.DirectoryInfo(Application.StartupPath)
    Dim laufwerk = New IO.DriveInfo(ordner.Root.Name)
    Return laufwerk.DriveType = IO.DriveType.Removable
  End Function