Converter a maiúsculas con Gambas

Hai dúas funcións ca seguinte sintaxe:

Resultado = UCase$(Cadea)
Resultado = Upper$(Cadea)

Esta función non traballa correctamente con cadeas codificadas en UTF-8.

Exemplo:
Message(UCase$("Gambas ALMOST Means BASIC !"))