Dim a( 5 ) As Variant
    Dim avarTemp( 5 ) As Variant
    Dim varTemp As Variant
    Dim intI As Integer
    Dim intJ As Integer
    Dim intLower As Integer
    Dim intUpper As Integer
    
    a( 0 ) = "A"
    a( 1 ) = "B"
    a( 2 ) = "C"
    a( 3 ) = "D"
    a( 4 ) = "E"
    a( 5 ) = "F"
    
    ' Вариант 1.
    ' Использовать вспомогательный массив.
    For intI = UBound(a) To LBound(a) Step - 1 
        avarTemp(intJ) = a(intI)
        intJ = intJ +  1 
    Next intI
    
    For intI = LBound(avarTemp) To UBound(avarTemp)
        Debug.Print avarTemp(intI)
    Next intI
        
    ' Вариант 2.
    ' Использовать временную переменную.
    intLower = LBound(a)
    intUpper = UBound(a)

    For intI = intLower To (intUpper - intLower) \  2 
        varTemp = a(intI)
        a(intI) = a(intUpper - intI)
        a(intUpper - intI) = varTemp
    Next intI
    
    For intI = LBound(a) To UBound(a)
        Debug.Print a(intI)
    Next intI