Public Sub Question1()
    Dim intI As Integer
    Dim avarArray() As Variant

    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 = LBound(avarArray) To UBound(avarArray)
        If CBool(avarArray(intI) Mod  2 ) Then
            avarArray(intI) = avarArray(intI) *  2 
        End If
    Next
        
    Debug.Print "Обработанный массив"
    
    For intI =  1  To  10 
        Debug.Print avarArray(intI)
    Next
End Sub