给变量赋值的有关问题

给变量赋值的问题
我写了一段程序，希望随即输入两个数，但系统提示字符串不能转换为整型，那应该如何写程序，才能输入呀！
Dim   A,   B   As   Long
                Dim   total   As   Long   =   0
                A   =   TextBox1.Text
                B   =   TextBox2.Text

------解决方案--------------------------------------------------------
A =Convert.ToInt(TextBox1.Text)
------解决方案--------------------------------------------------------


A = Integer.parse(TextBox1.Text)
B = Integer.parse(TextBox2.Text)
------解决方案--------------------------------------------------------
A =Convert.ToInt32(TextBox1.Text)
------解决方案--------------------------------------------------------
最好用正则限定一下文本框只能输入数字