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

Dim code as long

Expected array

Dim code (1 to 1000) as long

Type mismatch

p = Abs(k - code)

 p = Abs(k - code(i))

code(i+1)