[Uzvern]

Понял как можно избавится от

Код:

Chr(10) и тому подобной не нужной "гадости"

Код:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        RichTextBox1.Text = ""
        If TextBox1.Text <> "" And IsNumeric(TextBox1.Text) = True Then
            TextBox1.Text = Int(TextBox1.Text)
            For v As Integer = 1 To TextBox1.Text
nachalo:
                Dim i As Integer
                i = Int(Rnd() * 190 + 1)
                Select Case i
                    Case 1 To 8 REM ну тут все как обычно
                        RichTextBox1.Text = RichTextBox1.Text & Chr(i)
                    Case 14 To 190 REM и тут
                        RichTextBox1.Text = RichTextBox1.Text & Chr(i)
                        'Решение
                    Case Else 
                        RichTextBox1.Text = RichTextBox1.Text & ""
                        Do Until RichTextBox1.Text.Length = TextBox1.Text
                            Debug.Print(i)
                            GoTo nachalo
                        '/Решение
                        Loop
                End Select
            Next v
            Me.Text = RichTextBox1.Text.Length
        Else
            MsgBox("Вы не ввели значение, либо значение не является числом.", MsgBoxStyle.Critical, "Введите значение!")
        End If
    End Sub
End Class