Function ikki$(s$)
     Static r1 As Object, r2 As Object, r3 As Object, r4 As Object
     Dim s2$
     If r1 Is Nothing Then
         Set r1 = CreateObject("vbscript.regexp")
         Set r2 = CreateObject("vbscript.regexp")
         Set r3 = CreateObject("vbscript.regexp")
         Set r4 = CreateObject("vbscript.regexp")
         r1.Pattern = ".*?(?:^|,)\s+([^,]*?)\s+([гпх]|пгт|ст)\.?\s*,"
         r2.Pattern = ".*?([гпх]|пгт|ст)(?:\s+|\.\s*)([^,]+)"
         r3.Pattern = "(?:^|,)\s+([^,]*?)\s+(ул)\.?\s*,"
         r4.Pattern = "(ул)(?:\s+|\.\s*)([^,]+)"
     End If
     If r1.test(s) Then
         Set m = r1.Execute(s)
         s2 = m(0).submatches(1) & "." & m(0).submatches(0)
         s = r1.Replace(s, "")
     ElseIf r2.test(s) Then
         Set m = r2.Execute(s)
         s2 = m(0).submatches(0) & "." & m(0).submatches(1)
         s = r2.Replace(s, "")
     Else
         s2 = "ГОРОД НЕ ВЫДЕЛЕН"
     End If
     ikki = s2
      
     If r3.test(s) Then
         Set m = r3.Execute(s)
         ikki = s2 & ", " & m(0).submatches(1) & "." & m(0).submatches(0)
     ElseIf r4.test(s) Then
         Set m = r4.Execute(s)
         ikki = s2 & ", " & m(0).submatches(0) & "." & m(0).submatches(1)
     End If
End Function