Sono riuscito a creare la griglia con la texbox che si sposta dove nel punto dove clikko con il mouse ma non riesco a capire come far scrivere dentro la cella il valore che di volta in volta vado a modificare cella per cella...qualcuno puoi aiutarmi?

questo è il codice:

Private Sub griglia_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
With griglia
'colonna 1
Dim n As Integer
If .MouseCol = 1 And Button = 1 Then
Text1.Left = .Left + .ColPos(1) + 30
Text1.Top = .Top + .RowPos(.MouseRow) + 25
Text1.Width = .CellWidth + 30
Text1.Height = .CellHeight
Text1.Visible = True
Text1.SetFocus
Text1.ZOrder
Next
End If
'colonna 2
If .MouseCol = 2 And Button = 1 Then
Text1.Left = .Left + .ColPos(2) + 30
Text1.Top = .Top + .RowPos(.MouseRow) + 25
Text1.Width = .CellWidth + 30
Text1.Height = .CellHeight
Text1.Visible = True
Text1.SetFocus
Text1.ZOrder
End If
End With
End Sub