Силы на исходе. не понять как правильно объявить массив.

Dim i As Integer
Dim j, pos, k As Integer
Dim p As Integer
Dim txt
Dim code
Dim stok As String
Dim lt As Integer

1 Private Sub Кнопка5_Click()
2   Dim tmp
3   txt = text1.Value
4    lt = Len(txt)
5     'MsgBox (lt)
6    txt = LCase(txt)
7    MsgBox (txt)
8    k = CInt(Int((10 * Rnd()) + 1))
9    'MsgBox (k)
    
10    For i = 1 To lt
11    p = Abs(k - code)
12    tmp = Mid(txt, i, 1)
13    code = InStr(p, bl, tmp)
14    MsgBox (CStr(code))
15    Next i
16    stok = ""
17    For i = 1 To lt
18        stok = stok & CStr(code(i))
19        Next
20      MsgBox (stok)
21    End Sub

Ставлю code as long, вылезает Expected array в 18 строке.
14ю использую просто для просмотра(убедиться что работает)

Помогите, пожалуйста!застряла на этом месте и дальше никак((((

http://www.sql.ru/forum/1191458/type-mismatch-kak-korrektno-obyavit-massivy