David Crewe Ltd

Function UpperCase(str As String) As String
 Try
  UpperCase = UCase(str)
 Catch ex As Exception
  UpperCase = str
 End Try
End Function