Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim B() As Byte
        ReDim B(50)
        For i = 0 To 50
            B(i) = 64 + i
        Next
 
        ReDim Preserve B(200) ' Array vergrößern ohne es zu löschen
 
        For i = 51 To 150
            B(i) = 64 + i
        Next
 
        ReDim Preserve B(150) ' Array wieder verkleinern ohne es zu löschen
 
    End Sub
End Class