编一个类似于注册机的程序，怎么把TextBox里带字母的字符串转换成数字？（转换成编码也行，只要能计算）
这样写如果不输入或输入的不是纯数字就报错：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'两个TextBox已建立，TextBox1用于输入用户名，TextBox2用于显示注册码
Dim usernane, pasward As String
Dim temp As Long
usernane = CLng(TextBox1.Text)
temp = usernane * 3 - 500
pasward = CStr(temp)
TextBox2.Text = pasward
End Sub

Val