oppure crei 2 matrici di controlli una per le textbox una per i commandbutton

codice:
Private Sub Command1_Click(Index As Integer)
 MsgBox Index
End Sub

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
   If KeyAscii = 13 Then
      Command1_Click (Index)
   End If
End Sub