Строковые переменные - VB

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

Добрый день! Помогите решить задачу, очень прошу. Дан текст, содержащей от 2 до 30 слов, в каждом из которых от 2 до 10 латинских букв; между соседними словами – не менее одного пробела. Напечатать все слова, отличные от последнего слова, предварительно преобразовав каждое из них по следующему правилу: 1) перенести первую букву в конец слова; 2) перенести последнюю букву в начало слова. Заранее большое спасибо!

Решение задачи: «Строковые переменные»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub Replace_Symbols()
Dim sStr, sStr1, i As Integer
sStr = InputBox("Г‚ГўГ®Г¤ Г±ГІГ°Г®ГЄГЁ:")
Do While InStr(sStr, "  ")
  sStr = Replace(sStr, "  ", " ")
Loop
sStr = Split(sStr, " ")
sStr1 = sStr
iSize = UBound(sStr)
For i = 0 To iSize
    If sStr(i) <> sStr(iSize) Then
        sStr(i) = Mid(Replace(sStr(i), Left(sStr(i), 1), Right(sStr(i), 1), 1, 1, vbTextCompare), 1, Len(sStr(i)) - 1)
        sStr(i) = sStr(i) & Left(sStr1(i), 1)
    End If
    sMsg = sMsg & " " & sStr(i)
Next
MsgBox sMsg
End Sub