tdf#99589 tolower / toupper - dangerous to Turks ...

used 'toAsciiUpperCase()' and 'isAsciiUpperCase()' from rtl/character.hxx

Change-Id: Iafbf97c4e2f026443411cf080ba2f0872b726bbe
Reviewed-on: https://gerrit.libreoffice.org/25877Tested-by: Jenkins <ci@libreoffice.org>
Reviewed-by: Caolán McNamara <caolanm@redhat.com>
Tested-by: Caolán McNamara <caolanm@redhat.com>

filter/source/msfilter/msvbahelper.cxx

@@ -34,6 +34,7 @@
 #include <tools/urlobj.hxx>
 #include <osl/file.hxx>
 #include <unotools/pathoptions.hxx>
+#include<rtl/character.hxx>
 
 #include <com/sun/star/awt/KeyModifier.hpp>
 #include <svtools/acceleratorexecute.hxx>
@@ -630,8 +631,8 @@ sal_uInt16 parseChar( char c ) throw ( uno::RuntimeException )
     // do we care about locale here for isupper etc. ? probably not
     if ( isalpha( c ) )
     {
-        nVclKey |= ( toupper( c ) - 'A' ) + KEY_A;
-        if ( isupper( c ) )
+        nVclKey |= ( rtl::toAsciiUpperCase( c ) - 'A' ) + KEY_A;
+        if ( rtl::isAsciiUpperCase( c ) )
             nVclKey |= KEY_SHIFT;
     }
     else if ( isdigit( c ) )