Здравствуйте, мне нужно сравнить между собой 2 строки(bl и txt) и в code записать позиции символов txt в строке bl.
Такой вариант выдает 0.
Не могу найти другое решение.
Помогите сочинить работающий код))Спасибо

Private Sub Кнопка_Click()

txt = text1.Value
lt = Len(txt)
' MsgBox (lt)

k = CInt(Int((1000 * Rnd()) + 1))
' MsgBox (k)

For i = 1 To lt
code = InStr(k, bl, txt, vbBinaryCompare)
Next

MsgBox (code)

End Sub

Вот такой нашелся вариант
Private Sub Кнопка5_Click()
Dim tmp
txt = text1.Value
lt = Len(txt)
' MsgBox (lt)
txt = LCase(txt)
k = CInt(Int((1000 * Rnd()) + 1))
' MsgBox (k)

For i = 1 To lt
tmp = Mid(txt, i, 1)
code = InStr(k, bl, tmp)
Next i
MsgBox (code)
'str = ""
'For i = 1 To lt
'str = str & CStr(code(i)) & " "
End Sub

Осталось только вывести код строкой

2112,

да)у себя уже исправила.

Теперь вопрос:
Как вывести массив code?у меня или MsgBox (CStr(code)), который по одному в каждом боксе выводит.
или stok = ""
For j = 1 To lt
stok = stok & (CStr(code)) & " "
Next
MsgBox (stok)
Это выводит,почему-то, все одинаковые значения
Че делать?Как вывесети?

2112,
суть в том и есть. создать массив,содержащий значения позиций, а потом его парсить и возвращать буквы,соответствующие этим позициям