December 1, 2005 - WinTask - ProperCase$

'
' ProperCase$() - Returns in Proper Case

'
' Author: Joe Strazzere

'
' (First character is uppercase, the rest are lower case)

Function ProperCase$(Name$)
  ProperCase$=Ucase$(Left$(Name$,1))+Lcase$(Right$(Name$,Len(Name$)-1))
EndFunction

msgbox(ProperCase$("tEST"))