Vb.net 如何将所有ascii转换为纯文本

代码如下：

Private Sub BtnConvert_Click(sender As Object, e As EventArgs) Handles BtnConvert.Click
    ConvertedTXT.Clear()
    If TxtAscii.Checked = True Then
        While TheLength <> WaitingTXT.Text.Length
            ConvertedTXT.Text += (AscW(WaitingTXT.Text(TheLength)) & " ")
            TheLength += 1
        End While
        TheLength = 0
    ElseIf AsciiTxt.Checked = True Then
        ConvertedTXT.Text += (ChrW(WaitingTXT.Text(TheLength)) & " ")
    End If
End Sub

Private Sub BtnConvert\u单击（发送者作为对象，e作为事件参数）处理BtnConvert。单击
convertedText.Clear（）
如果txtscii.Checked=True，则
而长度等待Text.Text.Length
ConvertedText.Text+=（AscW（WaitingText.Text（长度））和“”）
长度+=1
结束时
长度=0
ElseIf asciText.Checked=则为真
ConvertedText.Text+=（ChrW（waitingText.Text（长度））和“”）
如果结束
端接头

如果您愿意，还可以提供图像：

好吧，把所有的文本都转换成ascii码，我明白了，但恰恰相反，不是

OBS：我将变量“TheLength”声明为double。

检查此示例

Dim input As String = "Hello^world" ' change this into your input
Dim replaced As String = System.Text.RegularExpressions.Regex.Replace(input, "[^a-zA-Z0-9]", " ")
Console.WriteLine(replaced) ' output: Hello world

---

为什么长度是双倍的？为什么不是整数？