sana$ = "kameleonttibanaanipuhelin"
For i = 1 To Len(sana)
    k$ = Mid(sana, i, 1)
    If k = " " Then Write 0
    If k = "@" Then Write 1
    If k = "a" Or k = "b" Or k = "c" Then Write 2
    If k = "d" Or k = "e" Or k = "f" Then Write 3
    If k = "g" Or k = "h" Or k = "i" Then Write 4
    If k = "j" Or k = "k" Or k = "l" Then Write 5
    If k = "m" Or k = "n" Or k = "o" Then Write 6
    If k = "p" Or k = "q" Or k = "r" Or k = "s" Then Write 7
    If k = "t" Or k = "u" Or k = "v" Then Write 8
    If k = "w" Or k = "x" Or k = "y" Or k = "z" Then Write 9
Next i
WaitKey