Realiza una selección de todo el contenido de un cuadro de texto

Public Sub SelectAll(CuadroTexto As Object)

 

'-- Realiza una selección de todo el contenido de un cuadro de texto

With CuadroTexto

  .SelStart = 0

  .SelLength = Len(CuadroTexto.Text)

End With

 

End Sub