Incase anyone has the same problem this is the solution....
(you only need to do this once in your VB
If System.Globalization.CultureInfo.CurrentCulture.LC ID.ToString = 1041 Then
CrystalDecisions.Shared.SharedUtils.RequestLcid = 2057
1041 is the locale id for Japanese
2057 is the locale id for English (UK)
All IDs are here: http://www.w3schools.com/vbscript/func_setlocale.asp
Thanks for your help ;)