你搞反了！
成都创新互联坚持“要么做到，要么别承诺”的工作理念，服务领域包括：成都网站建设、成都网站制作、企业官网、英文网站、手机端网站、网站推广等服务，满足客户于互联网时代的平山网站设计、移动媒体设计的需求，帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴！
TextBox1.Text=z1
TextBox2.Text=z2
改成
z1=CDouble(TextBox1.Text)
z2=CDouble(TextBox2.Text)
把 TextBox2.Text = Chr(Val("H" B))
改为
TextBox2.Text =TextBox2.Text Chr(Val("H" B)) VbCrlf
试试？而且 TextBox2 的MultyLine属性要事先改为True
或者是：
TextBox2.Text =TextBox2.Text Chr(Val("H" B)) “ ”
你这个是VB.NET环境，Print 语句与VB6里的功能已经不一样了。
解决的方法可以两种：
方法一：
把 Print(a) 改成 msgbox(a)
方法二：
在窗体上添加一个标签控件Label1
把 Print(a) 改成 Label1.Text = a
