编一个类似于注册机的程序，怎么把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或者Cint

Val(字符串)：把“字符串”转换成数值
Str（x） 把 x 的值转换为一个字符串
Int（x）求不大于自变量 x 的最大数
Fix（x） 去掉一个浮点数的小数部分，保留其整数部分
Hex（x） 把一个十进制数转换成一个十六进制数
Oct（x） 把一个十进制数转换成一个八进制数
Asc(x) 返回字符串当中第一个字符的ASCII 码
Chr(x) 把 x 的值转换成相对应的 ASCII 码对应的字符
Cint（x） 把 x 的小数部分四舍五入，转换为整数
Ccur(x)把 x 的值转换为货币类型,小数部分最多保留4位数且制动四舍五入
Cdbl(x) 把 x 的值转换为双精度
Clng(x) 把 x 的值的小数部分四舍五入转换为长整型数
Csng(x) 把 x 的值转换为单精度
Cvar(x) 把 x 的值转换为变体类型值