Не могу понять почему не счиает буква в последнем слове

[Daniil19122012]

Private Sub CommandButton1_Click()
Dim a As String
a = TextBox1.Text
a = Replace(a, " ", "*")
TextBox2.Text = a
End Sub

Вот код программы:

Private Sub CommandButton2_Click()
Dim a As String, b As String, i As Integer, p As Integer
a = TextBox2.Text
For i = Len(a) To 1 Step -1
b = b & Mid(a, i, 1)
Next
TextBox4.Text = b
p = InStr(1, b, "")
TextBox3.Text = p - 1
End Sub

[Администратор]

Опишите словами, что, по вашему замыслу, делает эта строка:
p = InStr(1, b, "")