Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        ' ReDim kann nur auf Prozedurebene verwendet werden
        Dim LVar_vspf() As Double = {3068, 1334, 667, 1134}
        ' ReDim LVar_vspf(9)                                 ' alte Werte sind _
          gelöscht
        ReDim Preserve LVar_vspf(9)    ' alte Werte bleiben erhalten
        Me.Text = LVar_vspf(3)         ' = 1134
End Sub