'
' ProperCase$(<string>) - Returns <string> 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"))
