主题：[求助]如果这个改成文本框的该怎么弄？

谢谢

另外 原来代码的这个是跳出窗口显示的；如何把这个改成赋值到文本框里呢？

就是把这个值显示到TextBox2

Dim str As String = "江苏省南京市秦淮区石头街华泰家园11幢1-205室华宏装饰工程有限公司"
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, ".+(?=省)")
If mc.count = 1 Then
    msgbox(mc(0).value)
End If
mc = System.Text.RegularExpressions.Regex.Matches(str, "(?<=省).+(?=市)")
If mc.count = 1 Then
    msgbox(mc(0).value)
End If
mc = System.Text.RegularExpressions.Regex.Matches(str, "(?<=市).+(?=区)")
If mc.count = 1 Then
    msgbox(mc(0).value)
End If
mc = System.Text.RegularExpressions.Regex.Matches(str, "(?<=室).+")

if mc.count = 1 then
    msgbox(mc(0).value)
end if