Try this:
Protected Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As EventArgs)
Dim txt As TextBox = DirectCast(sender, TextBox)
Dim row As GridViewRow = DirectCast(txt.Parent.Parent, GridViewRow)
Dim rowIndex As Int32 = row.RowIndex
Debug.WriteLine(rowIndex)
End Sub