GetLocale is unused

Change-Id: I106caf2e32236eea5b5517171c277533c4957c0e
diff --git a/wizards/source/tools/Misc.xba b/wizards/source/tools/Misc.xba
index 0d6e2af..9c19c7c 100644
--- a/wizards/source/tools/Misc.xba
+++ b/wizards/source/tools/Misc.xba
@@ -732,14 +732,6 @@ Function IsFatOffice() As Boolean
End Function


Function GetLocale(sLanguage as String, sCountry as String)
Dim oLocale as New com.sun.star.lang.Locale
	oLocale.Language = sLanguage
	oLocale.Country = sCountry
	GetLocale = oLocale
End Function


Sub ToggleDesignMode(oDocument as Object)
Dim aSwitchMode as new com.sun.star.util.URL
	aSwitchMode.Complete = ".uno:SwitchControlDesignMode"