Excel aufmöbeln mit VBA

Preserve
DynArrayZu
Option Explicit
Option Base 1
Dim Faecher() As String
Sub DynArrayneu(ByVal N As Long)
Dim i As Long
If (N > 0) Then ReDim Faecher(N)
For i = 1 To N
Faecher(i) = InputBox("Name des Fachs: ")
Next i
End Sub
Sub DynArrayZu(ByVal Nzu As Long)
Dim i As Long, N As Long
N = UBound(Faecher)
If (Nzu > 0 And N > 0) Then ReDim Preserve Faecher(N + Nzu)
For i = 1 To Nzu
Faecher(N + i) = InputBox("Name des Fachs: ", "", "")
Next i
End Sub
Function Ausgabe(ByRef u As Variant) As String
Dim i As Long
For i = LBound(u) To UBound(Faecher) - 1
Ausgabe = Ausgabe & u(i) & vbNewLine
Next i
Ausgabe = Ausgabe & u(i)
End Function
Sub DynarrayTest()
DynArrayneu (2)
DynArrayZu (1)
MsgBox Ausgabe(Faecher)
End Sub