Перенести первую букву в конец слова; перенести последнюю букву в начало слова - VB

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

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

Решение задачи: «Перенести первую букву в конец слова; перенести последнюю букву в начало слова»

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

                            Private Sub Command1_Click()
Dim a$()
a0 = "Напечататьww всеww словаww отличныеww отww последнегоww словаww"
 
Do While InStr(1, a0, "  ") > 0
a0 = Replace(a0, "  ", " ")
Loop
 
Print a0
a = Split(a0, " ")
 
If d(a) And lt(a) Then
L = LBound(a): U = UBound(a)
For i = L To U - 1
 If a(i) <> a(U) Then
    w = Right(a(i), 1) & Mid(a(i), 2, Len(a(i)) - 2) & Left(a(i), 1)
    Print w
 End If
Next i
Else
MsgBox "нарушено условие задачи"
End If
End Sub
 
Function d(s$()) As Boolean
d = UBound(s) > 0 And UBound(s) <= 30
End Function
 
Function lt(s$()) As Boolean
Dim i%, j%, k%, m%
lt = True
For j = LBound(s) To UBound(s)
    m = 0
    For i = 1 To Len(s(j))
        k = Asc(UCase(Mid(s(j), i, 1)))
        If k >= 65 And k <= 95 Then m = m + 1
    Next i
  If m < 2 Then
    lt = False
    Exit Function
  End If
Next j
End Function
                        