Создание массива из другого массива

Из массива который генерируется рандомно от -15 до 15, надо вытащить все элементы от первого положительного до последнего, и из этого создать массив

Sub DR()
    Dim m(20) As Integer, k(20) As Integer, f, t, s As Integer
    Randomize()
    s = 1
    f = -1
    For i = 0 To UBound(m)
        t = CInt(((-30) * Rnd()) + 15)
        m(i) = t
        Vivod(m(i), ListBox3)
    Next i
    ReDim Preserve k(f)

End Sub

Планировал изначально закинуть элементы, а после урезать до нужного размера