主题：【求助】如何根据收件地址求出省市区县？

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