function strWideXml(strSugXml) select case strSugXml case "kg" strWideXml = "" & _ "0000" & _ "כל הקופות" & _ "כל הקופות" & _ "" & _ "" & _ "10" & _ "תגמולים ואישית לפיצויים" & _ "תגמולים ואישית לפיצויים" & _ "" & _ "" & _ "30" & _ "קרנות השתלמות" & _ "קרנות השתלמות" & _ "" & _ "" & _ "20" & _ "מרכזית לפיצויים" & _ "מרכזית לפיצויים" & _ "" case "hm" strWideXml = "" & _ "0000" & _ "כל חברות מנהלות" & _ "0000 כל חברות מנהלות" & _ "" case "sk" strWideXml = "" & _ "0000" & _ "כל סוגי הקופות" & _ "0000 כל סוגי הקופות" & _ "" case "tsh" strWideXml = "" & _ "0000" & _ "כל תאגידים שולטים" & _ "0000 כל תאגידים שולטים" & _ "" case "stsh" strWideXml = "" & _ "0000" & _ "כל סוגי תאגידים שולטים" & _ "0000 כל סוגי תאגידים שולטים" & _ "" case "msl" strWideXml = "" & _ "0000" & _ "כל ההתמחויות" & _ "0000" & _ "כל ההתמחויות" & _ " " & _ "0" & _ "0" & _ "" case "tshlfisug" strWideXml = "" & _ "0000" & _ "כל תאגידים שולטים" & _ "0000 כל תאגידים שולטים" & _ "0000" & _ "" end select end function