Строки в VBA Excel(

[Bombastick]

Собственно говоря написал Макрос с горем по полам для перестановки Первого и последнего слова. Т.е поменять местами первое и последнее слово. Сегодня узнал от препода что слова могут быть не только наборы букв,но и цифры (фыы2312 2325DFGA55 9999 1111аrt 22222)
Как засунуть в мой макрос что бы цифры тоже считал?
И можно ли его упростить ибо он меня пугает.

Private Sub DoIt_Click()
Dim stroka As String
Dim LeftPosition As Integer
Dim RightPosition As Integer

stroka = TB_S.Text
LeftPosition = 1

Do While LeftPosition <= Len(stroka)
If Mid(stroka, LeftPosition, 1) = " " Then Exit Do Else LeftPosition = LeftPosition + 1
Loop

RightPosition = Len(stroka)
Do While RightPosition >= 0
If Mid(stroka, RightPosition, 1) = " " Then Exit Do Else RightPosition = RightPosition - 1
Loop

TB_S.Text = Right(stroka, Len(stroka) - RightPosition) + Mid(stroka, LeftPosition, RightPosition - LeftPosition + 1) + Left(stroka, LeftPosition - 1)

End Sub