Module Module1 Sub Main() Dim strR As String strR = ChrW("123") Console.WriteLine(strR) End SubEnd Module {