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