[Admiral]

Да уж. Первый самый код должен был нормально отработать, но идеологически боролся с последствиями, а не с причиной.
Вот следующий код ни шагу не даст i пока не убедится, что она не принимает нежелательных значений

Код:

        For v As Integer = 0 To 20
            Do
            i = Int(Rnd() * 190 + 1)
            Loop Until (i <> 9) And (i <> 10) And (i <> 12) And (i <> 13)
            If i = 10 Then Debug.Print(i)Rem это контрольная строчка для проверки через Immediate Window появления значения i 10
REM подробнее про это окно здесь ->http://msdn.microsoft.com/en-us/library/f177hahy(VS.80).aspx 
            RichTextBox1.Text = RichTextBox1.Text & Chr(i)
        Next v