鉴于：
Dim strOrig = "010451-09F2"
您可以执行以下任何操作：
Dim leftString = strOrig.Substring(0,strOrig.IndexOf("-"))
要么：
Dim leftString = strOrig.Split("-"c)(0) ' Take the first index in the array
要么：
Dim leftString = Left(strOrig,InStr(strOrig,"-")) ' Could also be: Mid(strOrig,"-"))