Определить, между какими символами находится звёздочка

'На форме TextBox1 , TextBox2 и кнопка Button1
Public Class Form1
    Dim zvezda, pered, posle As String
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox2.Clear()
        For a = 0 To TextBox1.TextLength
            zvezda = TextBox1.Text(a)
            If zvezda = "*" Then
                If a - 1 < 0 Then
                    pered = "Нет"
                Else
                    pered = TextBox1.Text(a - 1)
                End If
                If a + 1 > TextBox1.TextLength - 1 Then
                    posle = "Нет"
                Else
                    posle = TextBox1.Text(a + 1)
                End If
                TextBox2.Text = "В слове ( " & TextBox1.Text & " ) символы " & pered & " * " & posle
 
                Exit For
            End If
        Next
    End Sub
End Class

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim str As String = "текст*ещё текст"
        Dim indexOfAstr As Integer = str.IndexOf("*")
        Dim prevSymb As String = str(indexOfAstr - 1)
        Dim nextSymb As String = str(indexOfAstr + 1)
        MsgBox("Звёздочка находится между символами " & prevSymb & " и " & nextSymb)
    End Sub