eccoti la soluzione
codice:
Private Sub grd1_Click()

grd1.Row = grd1.RowSel
grd1.Col = grd1.ColSel

Text1 = grd1.Text


grd1.Row = grd1.RowSel
grd1.Col = grd1.ColSel + 1

Text2 = grd1.Text


grd1.Row = grd1.RowSel
grd1.Col = grd1.ColSel + 1

Text3 = grd1.Text

End Sub