Здравствуйте, мне нужно сравнить между собой 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

http://www.sql.ru/forum/1191410/kak-pravilno-sravnit-stroki-po-simvolno