ho fatto così dopo aver studiato la sintassi..
Dim textcomp As String = TextBox1.Text.Substring(5,1)

ma in questo modo non gli dico di prendere il primo e il quinto carattere della textbox uno ?? a me servirebbe invece di prendere il quinto carattere che legge la "pistola" e metterli nella textbox1..