Sub proba()
    Dim massiv1( 10 ), massiv2()

    massiv1( 2 ) =  20 
    massiv1( 3 ) = "13"
    massiv1( 4 ) =  4 
    
    massiv2 = ArraySort(massiv1)

End Sub

Public Function ArraySort( ARRAY_() )
    Dim Exchange As Boolean
    Dim x As Long
    Dim t
    
    Do
        Exchange = False
        For x = UBound(ARRAY_) To LBound(ARRAY_) +  1  Step - 1 
            If ARRAY_(x -  1 ) > ARRAY_(x) Then
                t = ARRAY_(x -  1 )
                ARRAY_(x -  1 ) = ARRAY_(x)
                ARRAY_(x) = t
                Exchange = True
            End If
        Next x
        For x = LBound(ARRAY_) +  1  To UBound(ARRAY_)
            If ARRAY_(x -  1 ) > ARRAY_(x) Then
                t = ARRAY_(x -  1 )
                ARRAY_(x -  1 ) = ARRAY_(x)
                ARRAY_(x) = t
                Exchange = True
            End If
        Next
    Loop While Exchange
    
    ArraySort = ARRAY_()
    
End Function

massiv2 = ArraySort(massiv1)

    ArraySort massiv1