Я уже разобрался, не знаю правильно или нет но получается
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim q As String
q = TextBox2.Text
MsgBox(q)
End Sub
End Class