Function MyCase(s)
MyCase = "xxxx-" & TTag(-35) & Ucase(s) & TTag(-40) & "-xxxx"
End Function
