Korrektur: Dim frei As String*10 natürlich ...