Создание пользовательских функций

[Lain.]

Нужно создать ФУНКЦИЮ которая бы при написании слова заменяла каждый нечетный символ на строчный и добавляла после него пробел)
Буду очень признательна если поможете решить

Собственно что я сделала:

Function Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Selection.Row = 2 And Selection.Column = 1 Then
n = Len(Cells(1, 1))
For i = 1 To n
If i Mod 2 Then
Cells(2, 1) = Cells(2, 1) + Mid(Cells(1, 1), i, 1)
Else
Cells(2, 1) = Cells(2, 1) + Chr(Asc(Mid(Cells(1, 1), i, 1)) Or &H20)
Cells(2, 1) = Cells(2, 1) & " "
End If
end function

Естественно ничего не работает..ПОМогите плиииз!Что не так...?я в этом вообще почти ничего не понимаю((