Resolves: fdo#49324 (Does not recognize VBA macro in JAPANESE...)

Thank you Caolán for your advice!

Change-Id: I72c5ae37d04961e261b275ba4625d3a376629d49

oox/source/helper/textinputstream.cxx

@@ -199,7 +199,8 @@ OUString TextInputStream::readToChar( sal_Unicode cChar, bool bIncludeChar )
         const Reference< XComponentContext >& rxContext, const Reference< XInputStream >& rxInStrm, rtl_TextEncoding eTextEnc )
 {
     Reference< XTextInputStream > xTextStrm;
-    const char* pcCharset = rtl_getMimeCharsetFromTextEncoding( eTextEnc );
+    // TODO JUL const char* pcCharset = rtl_getMimeCharsetFromTextEncoding( eTextEnc );
+    const char* pcCharset = rtl_getBestMimeCharsetFromTextEncoding( eTextEnc );
     OSL_ENSURE( pcCharset, "TextInputStream::createXTextInputStream - unsupported text encoding" );
     if( rxContext.is() && rxInStrm.is() && pcCharset ) try
     {