Ac_K Wrote:Your fonction return a 0x00 at the end of the string...

Ac_K Wrote:So, I Resolve my problem by the simple function :

Code:

Left(GetTextData(intII, cboTextLang.ListIndex), Len(GetTextData(intII, cboTextLang.ListIndex)) - 1)

---

Dim strTemp As String
strTemp = GetTextData(intII, cboTextLang.ListIndex)
Left$(strTemp, Len(strTemp) - 1)

Or, probably better:

Replace$(GetTextData(intII, cboTextLang.ListIndex), vbNullChar, vbNullString)

Good luck!