Dim isim As String
        isim = InputBox("isim")
        ListBox1.Items.Add(isim)
        For i = 0 To isim.Length - 1
            ListBox2.Items.Add(isim.Chars(i))
        Next