Удалить последнюю букву из всех слов строки - VB

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

Пишем последовательно слова в TextBox1 (между соседними словами не менее одного пробела, за последним словом точка). Задание: 1) Напечатать все слова последовательности - Это выполнил. 2) Удалить из каждого слова последнюю букву - надо сделать. Вот написал часть программы, где происходит вывод слов:

Dim S As String
Dim S1 As String
Dim j As Integer
Dim i As Integer
Dim A(1 To 20) As String
Dim N As Integer
S = TextBox1
N = Len(S)
j = 1
For i = 1 To N
If Mid(S, i, 1) <> " " And Mid(S, i, 1) <> "." Then S1 = S1 & Mid(S, i, 1)
If Mid(S, i, 1) = " " Or Mid(S, i, 1) = "." Then A(j) = S1: j = j + 1: S1 = ""
Next i
 
For i = 1 To j
S2 = S2 & A(i) & Chr(13)
Next i
MsgBox (S2)

Теперь нужно удалить последнюю букву каждого введенного слова. Этого сделать не могу. Помогите пожалуйста.

Решение задачи: «Удалить последнюю букву из всех слов строки»

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

                            Dim A
Dim S$
Dim I%
S = Split(TextBox1, ".")(0)
While InStr(S, "  ")
  S = Replace(S, "  ", " ")
Wend
A = Split(Trim$(S))
MsgBox Join(A, vbCr), , "Задание: 1)"
For I = 0 To UBound(A)
  A(I) = VBA.Strings.Left$(A(I), Len(A(I)) - 1)
Next I
MsgBox Join(A, vbCr), , "Задание: 2)"
                        