Easy please Help

That makes no sense at all!

Ah, that's easy.

For i = 1 To Len(Text1.Text)
text2.Text = text2.Text & Asc(Mid(Text1.Text, i, 1)) & ","
Next i
End Sub

you want the code in Italian? I can't help you there i'm afraid.

thanks but it's in English and i need Italiano
cool can u send it to me

That is the code for "italiano": i=105, t=116,... o=111

Marco

he does not want the code in Italian from you
he wants the code for any language that is not English, and he is asking it from native speakers (from what reason, I do not know)

Marco

private sub command2_click()
dim i as integer
dim x as integer
dim asc_long as long
text1.text=""
text1.font.charset= 177
text3.text= "1506 1489 1512 1497 1514 "
for i =1 to len(text3.text)
x=i
i= instr(i,text3.text," ",vbbinaryCompare)
asc_long=val(mid(text3.text,x,i-1)
text1.text=text1.text & ascW$(asc_long)
next

' Text1.text= " עיבר'ת"

is it already that cold out there <|:-{
Marco

? where and no it's hot

I was joking on Rich's post "I'll get my coat!" (that means something like "I am leaving now")
Marco

I modified some code of mine that deals with the GetLocaleInfo API, just to display the native language.
Paste the code in a newly create exe, and use one of the LANG_ definitions.
Enjoy,
Marco

Option Explicit

Private Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long
Private Declare Function GetLocaleInfoW Lib "kernel32" (ByVal Locale As Long, ByVal LCType As Long, ByRef lpLCData As Integer, ByVal cchData As Long) As Long
Private Const LOCALE_ILANGUAGE = &H1 ' language id
Private Const LOCALE_SCOUNTRY = &H6 ' localized name of country
Private Const LOCALE_SLANGUAGE = &H2 ' localized name of language
Private Const LOCALE_SNATIVELANGNAME = &H4 ' native name of language

Private Const LANG_ARABIC = &H1
Private Const LANG_BULGARIAN = &H2
Private Const LANG_CHINESE = &H4
Private Const LANG_CROATIAN = &H1A
Private Const LANG_CZECH = &H5
Private Const LANG_DANISH = &H6
Private Const LANG_DUTCH = &H13
Private Const LANG_ENGLISH = &H9
Private Const LANG_FINNISH = &HB
Private Const LANG_FRENCH = &HC
Private Const LANG_GERMAN = &H7
Private Const LANG_GREEK = &H8
Private Const LANG_HUNGARIAN = &HE
Private Const LANG_ICELANDIC = &HF
Private Const LANG_ITALIAN = &H10
Private Const LANG_JAPANESE = &H11
Private Const LANG_KOREAN = &H12
Private Const LANG_NEUTRAL = &H0
Private Const LANG_NORWEGIAN = &H14
Private Const LANG_PORTUGUESE = &H16
Private Const LANG_ROMANIAN = &H18
Private Const LANG_RUSSIAN = &H19
Private Const LANG_SLOVAK = &H1B
Private Const LANG_SLOVENIAN = &H24
Private Const LANG_SPANISH = &HA
Private Const LANG_SWEDISH = &H1D
Private Const LANG_TURKISH = &H1F

Private Sub Form_Load()

Dim v As Long

Dim k As Long
k = LANG_GREEK

Dim c As String
c = Space(256)
v = GetLocaleInfo(k, LOCALE_SCOUNTRY, c, 256)

Dim kk() As Integer
ReDim kk(255)
v = GetLocaleInfoW(k, LOCALE_SNATIVELANGNAME, kk(0), 256)

Dim j As Long
Dim bs As String
For j = 0 To v
bs = bs & (kk(j)) & " "
Next

Debug.Print "> " & k, APIString(c), bs

Unload Me

End Sub

Private Property Get APIString(s As String) As String
Dim k As Long
k = InStr(1, s, Chr(0), vbTextCompare)
If k = 0 Then
APIString = s
Else
APIString = Left$(s, k)
End If
End Property