Нужна помощь при решении задач (срочно!!!) - VB

Формулировка задачи:

Народ, приветствую Вас. Сыну моего соседа в школе дали задания на VB. Он прибежал ко мне за помощью, а я обращаюсь к Вам. Нужно решить след. задачи. Я понимаю что они не так сложны, но я уже как несколько лет не занимался программированием.
Очень прошу помочь:
1. Даны два текстовых файла с именами S1 и S2. Объединить эти файлы в новый файл с именем S3, так чтобы его элементы не повторялись и оказались упорядоченными в алфавитном порядке.
2. Дан текстовый файл. Подсчитать количество слов и символов данного файла.
3. Дана строка-предложение. Зашифровать ее, поместив вначале все символы, расположенные на четных позициях строки, а затем все символы, расположенные на нечетных позициях (например строка «Программа» превратиться в «ргамамроП»).
4. Дана строка, состоящая из слов, разделенных пробелами (одним или несколькими). Найти количество слов, которые содержат хотя бы одну букву «А».
5. Дан массив А размера N. Найти минимальный элемент из его элементов с четными номерами: А2,А4,А6,…..
6. Дана матрица размера M x N. Для каждой строки матрицы найти сумму ее элементов.
7. Дана матрица размера M x N. В каждом столбце матрицы найти максимальный элемент.
8. Дана квадратная матрица порядка N. Обнулить элементы матрицы, лежащие на главной диагонали.

Решение задачи: «Нужна помощь при решении задач (срочно!!!)»

textual
                            Листинг программы 
                        

                            <font color="blue">Private</font> <font color="blue">Sub</font> w2()
    <font color="blue">Dim</font> tt <font color="blue">As</font> <font color="blue">Integer</font>
    <font color="blue">Dim</font> i <font color="blue">As</font> <font color="blue">Integer</font>
    <font color="blue">Dim</font> s <font color="blue">As</font> <font color="blue">String</font>
    <font color="00AA00">'слов и букв</font>
    <font color="blue">Dim</font> word <font color="blue">As</font> <font color="blue">Integer</font>, w <font color="blue">As</font> <font color="blue">Integer</font>
        
    <font color="00AA00">'считать слово, ограниченное <font color="teal">" "</font> или концом строки</font>
    <font color="00AA00">'тогда слов - столько же, сколько пробелов и концов строки.</font>
    <font color="00AA00">'для простоты считать конец строки только vbCr,</font>
    <font color="00AA00">'не считать cимволами только vbCr vbLf</font>
    
    tt = FreeFile
    <font color="blue">Open</font> App.Path & <font color="teal">"\sss.txt"</font> <font color="blue">For</font> <font color="blue">Input</font> <font color="blue">As</font> #tt
        s = <font color="blue">Input</font>(LOF(tt), tt)
    <font color="blue">Close</font> #tt
    
    s = Replace(s, vbLf, <font color="teal">""</font>) & vbCr
    <font color="blue">While</font> InStr(s, vbCr & vbCr) > <font color="darkblue"><b>0</b></font>
        s = Replace(s, vbCr & vbCr, vbCr)
    <font color="blue">Wend</font>
    
    w = <font color="darkblue"><b>0</b></font>
    word = <font color="darkblue"><b>0</b></font>
    <font color="blue">For</font> i = <font color="darkblue"><b>1</b></font> <font color="blue">To</font> Len(s)
        <font color="blue">Select</font> <font color="blue">Case</font> <font color="blue">Mid</font>$(s, i, <font color="darkblue"><b>1</b></font>)
        <font color="blue">Case</font> vbCr, vbLf
            <font color="00AA00">'конец слова</font>
            word = word + <font color="darkblue"><b>1</b></font>
        <font color="blue">Case</font> <font color="teal">" "</font>
            <font color="00AA00">'конец слова и символ пробела</font>
            w = w + <font color="darkblue"><b>1</b></font>
            word = word + <font color="darkblue"><b>1</b></font>
        <font color="blue">Case</font> <font color="blue">Else</font>
            <font color="00AA00">'символ</font>
            w = w + <font color="darkblue"><b>1</b></font>
        <font color="blue">End</font> <font color="blue">Select</font>
    <font color="blue">Next</font> i
    
    <font color="blue">If</font> Len(s) <> <font color="darkblue"><b>0</b></font> <font color="blue">And</font> word = <font color="darkblue"><b>0</b></font> <font color="blue">Then</font> word = <font color="darkblue"><b>1</b></font>
    
    MsgBox <font color="teal">"Символов "</font> & vbTab & w & vbCrLf & <font color="teal">"Слов "</font> & vbTab & vbTab & word
<font color="blue">End</font> <font color="blue">Sub</font>
                        