You migh try something like this in your event:

Private Sub TextBox1_Change()
Dim dblVal As Double
dblVal = CDbl(Replace(textgroup.value, ".", "")) / 100
textgroup.value = Format(dblVal, "Standard")
End Sub

--
Regards,
Tom Ogilvy


"henryhbb" <henryhbb.1q73id_1118045104.7571@excelforum-nospam.com> wrote in
message news:henryhbb.1q73id_1118045104.7571@excelforum-nospam.com...
>
> I appreciate your help on this.....I guess the only way to do this is
> the long way.
>
> Thanks Anyway
>
> Henry
>
>
> --
> henryhbb
> ------------------------------------------------------------------------
> henryhbb's Profile:
http://www.excelforum.com/member.php...o&userid=15774
> View this thread: http://www.excelforum.com/showthread...hreadid=376604
>