Bigley's answer works just fine, but it's easier than that.

Me.Caption = UCase(Left(Me.Caption, 1)) & Right(Me.Caption, Len(Me.Caption) - 1) & "."


(or substitute x for Me.Caption)

------------------
Marty
What did the fish say when it hit the concrete wall?
> > > > > "Dam!"