Este truco se trata de hacer una selección del contenido del textbox, sólo que se calca en él, ya sea o no en array.

'Para un control

Private Sub Text1_GotFocus()

Text1.SelStart = 0

Text1.SelLength = Len(Text1)

End Sub

'Para un array

Private Sub Text1_GotFocus(Index As Integer)

Text1(Index).SelStart = 0

Text1(Index).SelLength = Len(Text1(Index))

End Sub