Code:
with richtextbox1
    .selstart=0
    .sellength=len(.text)
end with