Объясните код Visual Basic

[MaXgo]

Вот код:

Private Sub КнопкаВычислить_Click()
    Dim st As String
    Dim letter As String
    Dim res As String
    Dim i As Integer, temp
    st = Text1
    letter = "а"
    temp = Split(Replace(Replace(st, ".", " "), ",", " "))
    For i = 0 To UBound(temp)
        If UBound(Split(temp(i), letter)) >= 2 Then res = res & temp(i) & vbCrLf
    Next i
    MsgBox res
End Sub

Объясните как все происходит в этом участке кода:

temp = Split(Replace(Replace(st, ".", " "), ",", " "))
    For i = 0 To UBound(temp)
        If UBound(Split(temp(i), letter)) >= 2 Then res = res & temp(i) & vbCrLf

[gaw4]

"Объясните как все происходит"
а что там должно происходить

[gaw4]

temp = Split(Replace(Replace(st, ".", " "), ",", " "))
' ...........................замена точки на пробел
'.................замена в результате зпт на пробел
'.........сворачиваем строку в массив (в качестве разделителя - пробел)
' получим массив слов

....For i = 0 To UBound(temp)
' ..цикл от 0 до количества слов в массиве , что выше получили
...........If UBound(Split(temp(i), letter)) >= 2 Then res = res & temp(i) & vbCrLf
' .........если верхний индекс
' ........................массива образованного
' ..............................из текущего слова с разделителем letter="а"
' ................................т.е . рпрпарпрпа ---- ("рпрп","рпрп")
'.................................. ...........больше 1, (т.е. в слове есть не менее 2х "а"
' .......................то к строке вывода дописываем текущее слово

могут возникнуть проблемы в случае ввода "а" русс. и "а" англ. , а также прописных и заглавных