TextBox почему так долго

С целью сделать текст нечитаемым и при попытке выполнить такой вот код, получаю странную задержку при выполнении.
При некоторых значениях j, оператор textbox.Text = num может выполняться от 10 до 40 сек. Это выполнялось в ворд 2003.

Dim num() As Byte
---------------------------------
Private Sub cb2_Click()
Randomize
j = Int(255 * Rnd + 1)
num = textbox.Text
For i = 0 To UBound(num) Step 2
num(i + 1) = j
Next
textbox.Text = num
End Sub


Кроме того в VB6 это вообще не работает как надо, потому что при попытке раскодировать текст и выполнении оператора num = textbox.Text всегда получается как если бы старший байт юникода всегда был равен 0, независимо от того что туда заносилось реально. Это касается только
VB6 и я вообще не понимаю почему так.

Private Sub cb1_Click()
num = textbox.Text
For i = 0 To UBound(num) Step 2
num(i + 1) = 0
Next
textbox.Text = num
End Sub

Отсюда 2 вопроса:
1. Как избежать задержки при записи с TextBox строки с случайными значениями в страшнем байте юникода?
2. Как заставить VB6 потом прочитать записаное в него значение и почему у него такое ненормальное поведение?
Спасибо.