Работа со строками. Написал программній код, но где-то допустил ошибку.

[NikitaNikita]

я написал программній код, но прога не пашет. пожалуйста, помогите найти ошибку.
прога должна шифровать каждую букву в слове по одинаковому принципу. есть переменная 1<К<9, которая задается. пример: при К = 2, буква А станет В, Б - Г и так далее.


Private Sub Command1_Click()
Dim K As Integer
Dim i As Integer
Dim A As String
Dim S As String 'osnovnay stroka
Dim Ress As String
S = InputBox("Vvedite slovo")
For i = 1 To Len(S)
S1 = Mid(S, i, 1)
Ress = Ress & Code(K, S1)
Next i
S = Ress
Print Ress
End Sub
Function Code(K As Integer, A As String) As String
Code = Chr(K + Asc(A))
End Function

[mss]

> прога не пашет

Ну да.
А задание при этом звучит так "написать прогу, неважно что делающую, но чтобы пахала".
Угадал ?)

[NikitaNikita]

точно, забыл написать зачем она нужна.
прога должна шифровать каждую букву в слове по одинаковому принципу. есть переменная 1<К<9, которая задается. пример: при К = 2, буква А станет В, Б - Г и так далее.