Получить из одного одномерного массива другой

Private Sub Podmenu2_Click(Index As Integer)
ReDim Massiv1(N), Massiv2(N), Massiv3(N)
For i = 0 To N - 1
       Massiv1(i) = Massiv(i)
       Massiv2(i) = Massiv(i)
       Massiv3(i) = Massiv(i)
       Next i
       
Select Case (Index)
      Case 0
             Label3.Caption = "Элементы, встречающиеся один раз" 
            i = N - 1
            Kol = N
            Do While i <> 0
            For k = i + 1 To N - 1
            If Massiv1(i) = Massiv1(k) Then
                            For j = i To Kol - 2
                            Massiv1(j) = Massiv1(j + 1)
                            Next j   
                        Kol = Kol - 1
                        End If
 Next k
  i = i - 1
  Loop
Picture1.Cls
For i = 0 To Kol - 1
     Picture1.Print Massiv(i), , , Massiv1(i)
     Next i
For i = Kol To N - 1
      Picture1.Print Massiv(i)
      Next i
N = Kol
 
      Case 1
            Label3.Caption = "Элементы, встречающиеся более чем по одному разу"
           ' =(
      Case 2
            Label3.Caption = "Элементы, встречающиеся более чем по два раза"
           ' =(
End Select
End Sub

Sub m_1()
Dim myArray(1 To 10) As Single
Dim myArray_1() As Single
Dim myArray_2() As Single
Dim myArray_3() As Single
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
Dim m As Integer
Dim vКоличество As Integer
ReDim myArray_1(1 To 10)
ReDim myArray_2(1 To 10)
ReDim myArray_3(1 To 10)
For i = LBound(myArray) To UBound(myArray)
    myArray(i) = Cells(i, 1)
Next i
For i = LBound(myArray) To UBound(myArray)
    vКоличество = 0
    For j = LBound(myArray) To UBound(myArray)
        If myArray(i) = myArray(j) Then
            vКоличество = vКоличество + 1
        End If
    Next j
    Select Case vКоличество
        Case 1
            k = k + 1
            myArray_1(k) = myArray(i)
        Case 2
            l = l + 1
            myArray_2(l) = myArray(i)
        Case Else
            l = l + 1
            m = m + 1
            myArray_2(l) = myArray(i)
            myArray_3(m) = myArray(i)
    End Select
Next i
If k <> 0 Then
    ReDim Preserve myArray_1(1 To k)
End If
If l <> 0 Then
    ReDim Preserve myArray_2(1 To l)
End If
If m <> 0 Then
    ReDim Preserve myArray_3(1 To m)
End If
For i = LBound(myArray_1) To UBound(myArray_1)
    Cells(i, 2) = myArray_1(i)
Next i
For i = LBound(myArray_2) To UBound(myArray_2)
    Cells(i, 3) = myArray_2(i)
Next i
For i = LBound(myArray_3) To UBound(myArray_3)
    Cells(i, 4) = myArray_3(i)
Next i
End Sub