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

Option Explicit
 
Private Sub Form_Load()
    Dim Text As String, Word As String, Words() As String, Letter As String
    Dim O As Long, C As Long, Idx As Long
    Me.AutoRedraw = True
    Text = "      Quantum superposition      refers to the quantum mechanical property" & _
    "of a particle to occupy all of its possible quantum states simultaneously refers             "
    O = 0
    Do
        C = InStr(O + 1, Text, Chr$(32))
        If C = 0 Then C = Len(Text) + 1
        If C > O + 1 Then
            Word = Mid$(Text, O + 1, C - O - 1)
            If Not Not Words() Then Idx = UBound(Words) + 1 Else Idx = 0
            ReDim Preserve Words(Idx)
            Words(Idx) = Word
        End If
        O = C
    Loop While C < Len(Text)
    For Idx = 0 To UBound(Words)
        If Words(Idx) <> Words(UBound(Words)) Then
            Letter = Left(Words(Idx), 1)
            Mid(Words(Idx), 1, 1) = Right(Words(Idx), 1)
            Mid(Words(Idx), Len(Words(Idx))) = Letter
            Me.Print Words(Idx)
        End If
    Next
End Sub