Public Shared Function ConvertToProperCase(ByVal s As String) As String
If Not IsNothing(s) then
Return UCase(Left(s,1)) & LCase(Right(s,Len(s)-1))
End If
End Function