Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.DataGridViewCellEventArgs) Handles _
  DataGridView1.CellClick
 
TextBox1.Text=DataGridView1.CurrentCell.Value
 
End Sub

EALA FREYA FRESENA