urgente selezionare lintero contenuto di una text

[tas]

With Text1
    .SelStart = 0
    .SelLenght = Len(.Text)
End With