你自己抛的异常....
专注于为中小企业提供做网站、成都网站建设服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业攸县免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了上1000家企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。
把throw 那行删了
用下面的
return x.SubString(0,p2)
left()与left$()
right()与right$()
Mid()与mid$()
他们意义相同，唯一不同的是：
带$的是从DOS的BASIC中继承下来的，它处理字串时以ASCII码处理，而mid()是以Windows字符集方式处理。
这两种方式区别在哪呢？我也说不清楚，不过看下面可能帮你理解：
QBASIC(DOS) 下运行 len("我") 的值是 2,因为它以ASCII处理，得到的是两个字符串
VisualBasic(Windows)下运行 len("我")的值为1,因为只有一个字符（汉字)
但是，事实上，VB中以上函数用起来几乎是等效的。
你在程序的开头,对N进行定义试试
Dim n As Integer
n=8
strName11 = Left$(strName1, n)
原因可能是在你的程序开始有这一语句吧:
Option Explicit
如果使用，则 Option Explicit 语句必须出现在文件中其他所有源语句之前。
当 Option Explicit 出现在文件中时，必须使用 Dim、Private、Public 或 ReDim 语句显式声明所有变量。试图使用未声明的变量名将发生编译时错误。
你查查你的程序看看
减去字符串，很简单
Dim ss1 As String
ss1 = ss1.Replace(ss2, "")
ss1.Replace(ss2, "") 的意思就是，把ss1字符串中的ss2都替换成空字符，得到的结果仍然赋给ss1
至于你那个left，VB.net似乎没有这个函数了，你写那个Left，实际是窗体的位置属性，连编译都无法编译，要取子字符串，用
ss1 = ss1.Substring(0, 1)
参数0表示从第几个字符开始，1表示取多少个字符
这可以理解，bottom,right代表控件底和右部边界的坐标值，而非高度和宽度。移动的话对边的边界自然同步移动的了。