>>>To expand a bit on Ed's response<g>, here is the code that would work in the Click():
>>>
>>>If Len(This.Value) = 0
>>> keyboard "{HOME}"
>>>Endif
>>
>>Probably more precize way is to code Text.Gotfocus event:
>>keyboard '{END}'
>>keyboard '{SHIFT+HOME}'
>>now Format property can be cleaned up

Empty reply?
Anyway, one more addendum:
***Text.Gotfocus event

if len(allt(this.value))!=0
 keyboard '{END}'
 keyboard '{SHIFT+HOME}'
endif