怎么在VB 的TEXT中提取某段文字中的几个字？

Question

如从“我爱北京天安门”中提取“北京”两字？

Answer 1

text.txt="我爱北京天安门"
方法1:这个方法比较死板
mid(text.txt,3,2) 注释:从第三个字符开始截取,截取字符长度为2

方法2:这个方法比较灵活,相对方法一稍有复杂

txt1.Text = "我爱北京天安门"
Dim i As Integer
Dim j As Integer
j = 1
For i = 1 To Len(txt1.Text)
If InStr(j, txt1.Text, "北") <> 0 Then
If Mid(txt1.Text, j, 2) = "北京" Then
MsgBox (Mid(txt1.Text, j, 2) & ",第一个字符'" & Mid(txt1.Text, j, 1) & "'字在文本框中的位置是:" & j)
Exit For
End If
If j = Len(txt1.Text) Then
MsgBox ("没有找到")
Exit For
End If
j = j + 1
End If
Next

Answer 2

采用字符串函数啊，
比如left函数，mid函数

Answer 3

mid("我爱北京天安门",3,2)
3代表第三个字开始
2代表取两个字