Olá, amigo!
Crie uma "Sub" geral assim:
Public Sub myFocus(oObj As Object)
On Error Resume Next
oObj.SelStart = 0
oObj.SelLength = Len(oObj)
End Sub
e a coloque no evento GotFocus de cada TextBox que desejar, dessa maneira:
Private Sub Text1_GotFocus()
myFocus Text1
End Sub
JSFF