Array variabel

Option Explicit
Sub sortierung()
Dim x As Integer
x = InputBox("Geben sie die Anzahl der Zahlen die Sie sortieren wollen ein!")
Dim z(1 To x) As Integer
Dim h As Integer
Dim i As Integer
Dim hilf As Integer
Dim strMassage As String
For i = LBound(z) To UBound(z)
z(i) = InputBox("Bitte geben sie die " & i & ". Zahl ein", "EINGABE")
Next i
For i = LBound(z) To UBound(z) - 1
For h = LBound(z) To UBound(z) - 1
If z(i) > z(i + 1) Then
hilf = z(i)
z(i) = z(i + 1)
z(i + 1) = hilf
End If
Next h
Next i
For i = LBound(z) To UBound(z)
strMassage = strMassage + Str(z(i)) + vbLf
Next i
MsgBox strMassage
End Sub