Переписать элементы массива X в массив Y и подсчитать их количество - VB

Option Base 1
Private Sub Command1_Click()
Const c = 70
    Dim x$(c), y$(), f&, d%
    Randomize Timer
    For f = 1 To c
        x(f) = Round(-10 + (Rnd * 21), 1)
    Next
    '============= Переписать значения
    For f = 1 To c
        If Abs(x(f)) <= 1 Then
          d = d + 1: ReDim Preserve y(d): y(d) = x(f)
        End If
    Next
    Cls
    Print "Массив Х = {" & Join(x, ";") & "}"
    Print "Массив Y = {" & Join(y, ";") & "}"
    Print "Количество с Условием и ограчением: 1>=x(i)>=-1 ...  = " & d
End Sub