第一个问题有个简单的方法，把字符串变量赋值到一个textbox里面,利用textbox.lines实现。如：
10年积累的成都网站建设、成都网站设计经验，可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你，你也不认识我。但先网站制作后付款的网站建设流程，更有阿瓦提免费网站建设让你可以放心的选择与我们合作。
dim a as string ="hh12345" vbcrlf "qdq123" vbcrlf "ddd244" vbcrlf "whw266" ’定义变量
textbox1.text=a ‘赋值
message.show(textbox1.lines(2).tostring) ‘显示第三行内容。
第二个问题结合第一个问题，用循环逐行查找，就可知道字符串第一次出现在哪行。
在VB中是这样的，没学过VB点虐 ，你变换一下就可以了
按你说的，用用Left,Right和Mid
Option Explicit
Private Sub Command1_Click()
Dim Num(2)
Num(0) = Val(Left(Label1.Caption, 2))
Num(1) = Val(Mid(Label1.Caption, 3, 1))
Num(2) = Val(Right(Label1.Caption, 2))
MsgBox "Num(0)=" Num(0) vbCrLf "Num(1)=" Num(1) vbCrLf "Num(2)=" Num(2)
'如果想测试是不是可以计算，可以用这一句
'MsgBox "Num(0)+1=" Num(0) + 1 vbCrLf "Num(1)+1=" Num(1) + 1 vbCrLf "Num(2)+1=" Num(2) + 1
End Sub
Private Sub Form_Load()
Label1.Caption = "12345"
End Sub
有问题请追问，满意请采纳！
因为|在正则表达式中是或的意思,如果要用|字符的原意,需要用转义符\转义才行.
因此,你的第二个函数调用应该这样写dim str3 as string = Extract(str1,"6","\|",false)
加一个转义符.