Function ReverseWords( _
  strData As String) As String
    Dim intI As Integer
    Dim strTemp1 As String
    Dim strTemp2 As String
    
    For intI =  1  To Len(strData) Step  2 
        strTemp1 = strTemp1 & Mid(strData, intI,  1 )
    Next
            
    For intI = Len(strTemp1) To  1  Step - 1 
        strTemp2 = strTemp2 & Mid(strTemp1, intI,  1 )
    Next
        
    ReverseWords = strTemp2
End Function

?ReverseWords("Test Test")
te sT

Public Sub Question1()
    Dim intI As Integer
    Dim intJ As Integer
    Dim avarArray() As Variant
    Dim col As New Collection
    Dim bln As Boolean
    Dim cls As Class1
    
    ReDim avarArray( 1  To  10 )
    
    Randomize
    
    For intI =  1  To  10 
        avarArray(intI) = Int(Rnd *  99 ) +  1 
    Next
    
    Debug.Print "Исходный массив"
    
    For intI =  1  To  10 
        Debug.Print avarArray(intI)
    Next
    
    Debug.Print "============================="

    For intI =  1  To  10 
        Set cls = New Class1
        cls.lngValue = avarArray(intI)
        cls.intIndex = intI
        bln = False
        For intJ =  1  To col.Count
            If avarArray(intI) < col.Item(intJ).lngValue Then
                col.Add cls, , intJ
                bln = True
                Exit For
            End If
        Next intJ
        If Not bln Then
            col.Add cls
        End If
        Set cls = Nothing
    Next intI
    
    Debug.Print "Номера улементов по убыванию:"
    
    For intI = col.Count To  1  Step - 1 
        Debug.Print "Индекс: " & col.Item(intI).intIndex; _
          " Значение: " & col.Item(intI).lngValue
    Next
End Sub

Public lngValue As Long
Public intIndex As Integer

Public Sub Question2()
    Dim intI As Integer
    Dim intJ As Integer
    Dim intK As Integer
    Dim avarArray() As Variant
    Dim avarArrayTemp() As Variant
    Dim avarArrayOutput() As Variant
    Dim col As New Collection
    Dim bln As Boolean
    Dim cls As Class2
    
    ReDim avarArray( 1  To  4 ,  1  To  4 )
    ReDim avarArrayTemp( 1  To  8 ,  1  To  2 )
    ReDim avarArrayOutput( 1  To  4 ,  1  To  2 )
    
    avarArray( 1 ,  1 ) = "Команда1"
    avarArray( 1 ,  3 ) = "Команда2"
    avarArray( 2 ,  1 ) = "Команда1"
    avarArray( 2 ,  3 ) = "Команда3"
    avarArray( 3 ,  1 ) = "Команда2"
    avarArray( 3 ,  3 ) = "Команда3"
    avarArray( 4 ,  1 ) = "Команда4"
    avarArray( 4 ,  3 ) = "Команда1"
    
    Randomize

    For intI =  1  To  4 
        For intJ =  2  To  4  Step  2 
            avarArray(intI, intJ) = Int(Rnd *  5 ) +  1 
        Next intJ
    Next intI
    
    Debug.Print "Футбольные матчи"
    Debug.Print "==================================="
    Debug.Print "Команда1   Голы    Команда2    Голы"
    Debug.Print "==================================="
    
    For intI =  1  To  4 
        For intJ =  1  To  4 
            Debug.Print avarArray(intI, intJ); vbTab;
        Next intJ
        Debug.Print ""
    Next intI
    
    intJ =  1 
    intK =  1 
    
    For intI =  1  To  4 
        If avarArray(intI,  2 ) = avarArray(intI,  4 ) Then
            avarArrayTemp(intK, intJ) = avarArray(intI,  1 )
            avarArrayTemp(intK, intJ +  1 ) =  1 
            avarArrayTemp(intK +  1 , intJ) = avarArray(intI,  3 )
            avarArrayTemp(intK +  1 , intJ +  1 ) =  1 
        ElseIf avarArray(intI,  2 ) > avarArray(intI,  4 ) Then
            avarArrayTemp(intK, intJ) = avarArray(intI,  1 )
            avarArrayTemp(intK, intJ +  1 ) =  3 
            avarArrayTemp(intK +  1 , intJ) = avarArray(intI,  3 )
            avarArrayTemp(intK +  1 , intJ +  1 ) =  0 
        ElseIf avarArray(intI,  2 ) < avarArray(intI,  4 ) Then
            avarArrayTemp(intK, intJ) = avarArray(intI,  1 )
            avarArrayTemp(intK, intJ +  1 ) =  0 
            avarArrayTemp(intK +  1 , intJ) = avarArray(intI,  3 )
            avarArrayTemp(intK +  1 , intJ +  1 ) =  3 
        End If
        intK = intK +  2 
    Next intI
    
    intK =  1 
    bln = False
        
    For intI = LBound(avarArrayTemp,  1 ) To UBound(avarArrayTemp,  1 )
        For intJ = LBound(avarArrayOutput,  1 ) To UBound(avarArrayOutput,  1 )
            If avarArrayTemp(intI,  1 ) <> avarArrayOutput(intJ,  1 ) Then
                bln = False
            Else
                bln = True
                Exit For
            End If
        Next intJ
        If Not bln Then
            avarArrayOutput(intK,  1 ) = avarArrayTemp(intI,  1 )
            avarArrayOutput(intK,  2 ) = avarArrayTemp(intI,  2 )
            intK = intK +  1 
        Else
            avarArrayOutput(intJ,  2 ) = avarArrayOutput(intJ,  2 ) + _
              avarArrayTemp(intI,  2 )
        End If
    Next intI
        
    Debug.Print "==================================="

    For intI =  1  To  4 
        Set cls = New Class2
        cls.strTeam = avarArrayOutput(intI,  1 )
        cls.intPoints = avarArrayOutput(intI,  2 )
        bln = False
        For intJ =  1  To col.Count
            If avarArrayOutput(intI,  2 ) < col.Item(intJ).intPoints Then
                col.Add cls, , intJ
                bln = True
                Exit For
            End If
        Next intJ
        If Not bln Then
            col.Add cls
        End If
        Set cls = Nothing
    Next intI

    Debug.Print "Итоговая таблица"
    Debug.Print "==================================="
    
    intJ =  1 

    For intI = col.Count To  1  Step - 1 
        Debug.Print "Место: " & intJ; _
          " Команда: " & col.Item(intI).strTeam; _
          " Очки: " & col.Item(intI).intPoints
        intJ = intJ +  1 
    Next
End Sub

Public strTeam As String
Public intPoints As Integer