You can do like this
Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
TextBox1.Text = DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value.ToString()
End Sub