كيف تجزء كلمة او جملة الى احرفها-- مهم

آسف لكتابة الكود به>ه الطريقة ولكن أمر (code) لا يعمل بشكل صحيح

Dim tempStr as String

Dim i As Integer

tempStr = Text1.Text

For i = 0 to len(tempStr)

List1.AddItem Mid(tempStr, 1)

Next

Private Sub Command1_Click()
    Dim txt As String

    txt = "لعنة الله على اليهود"
    List1.Clear
    For i = 1 To Len(txt)
        List1.AddItem Mid(txt, i, 1)
     Next i
End Sub