Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
Dim message As String = InputBox("String", "test")
Dim nmessage As String = ""
For Each c As Char In message
If RadioButton1.Checked Then
nmessage = nmessage + AscW(c).ToString + " "
Label1.Text = nmessage
Else
nmessage = Label1.Text
Label1.Text = ChrW(nmessage)
End If
Next
End Sub
End Class