i119933 - make Basic FORMAT function work with non-ASCII text

Conflicts:
	basic/source/sbx/sbxscan.cxx

Change-Id: I5b77231d1b09cbf32fa914f3d7b60d6e631e5870

basic/source/sbx/sbxscan.cxx

@@ -702,14 +702,17 @@ void SbxValue::Format( OUString& rRes, const OUString* pFmt ) const
     {
         OUString aStr = GetOUString();
 
+        SvtSysLocale aSysLocale;
+        const CharClass& rCharClass = aSysLocale.GetCharClass();
+
         if( pFmt->equalsIgnoreAsciiCase( VBAFORMAT_LOWERCASE ) )
         {
-            rRes = aStr.toAsciiLowerCase();
+            rRes = rCharClass.lowercase( aStr );
             return;
         }
         if( pFmt->equalsIgnoreAsciiCase( VBAFORMAT_UPPERCASE ) )
         {
-            rRes = aStr.toAsciiUpperCase();
+            rRes = rCharClass.uppercase( aStr );
             return;
         }