Dim Namen As New ArrayList
Namen.add("LEO / VE")
Namen.add("LEO / CR")
Namen.add("LEO / TS")
Namen.add("LEO / MS")
Namen.add("LEO / JG")



Name = InputListBox("Namenskürzel auswählen!", MultiValue.List("Name"), Name, Title := "Auswahl der Namen", ListName := "Namen")