[VB6] Selezionare una Texbox da un gruppo tramite command

[maingio]

Espongo il problema ho una form con un numero elevato di texbox, ora il mio problema
e selezionare una textbox e colorarla per colorarla nessun problema ma il problema sta nel selezionare
la textbox e con command colorarla.

Ho utilizzato il codice di androita che mi e' sembrato facesse al caso mio

nel form ho dichiarato

Dim ActiveTextBox As TextBox

Sub txt_comm_Click()
   Set ActiveTextBox = txt_comm
End Sub


Private Sub Command18_Click()
   Dim sValore As String
   sValore = "A"
   ActiveTextBox.Text = ActiveTextBox.Text & sValore
End Sub

Mi da errore di runtime 424
necessita oggetto

sulla Sub txt_comm_Click()

Qualcuno mi puo aiutare a capire come eliminare l'errore

Grazie