Usa questo semplice trucchetto
codice:
Public Sub SelectAll(Testo As Control)
    With Testo
        .SelStart = 0
        .SelLength = Len(Testo.Text)
        .SetFocus
    End With
End Sub
Nella sub fai SelectAll(textbox1)