Function yyy1$(t$)
    With CreateObject("VBScript.RegExp"): .IgnoreCase = True
    .Pattern = "(?:[^а-яё]|^)[а-яё]+(?=[^а-яё]|$)"
        yyy1 = .Execute(t)(0)
    End With
End Function

Function bbb$(t$)
With CreateObject("VBScript.RegExp"): .IgnoreCase = True
If InStr(1, t, "г") Then
.Pattern = "[а-яё]+ (?:г)"
If .test(t) Then bbb = .Execute(t)(0) Else bbb = ""
Else
.Global = True: .Pattern = "(?:[^а-яё]|^)[а-яё]+(?=[^а-яё]|$)"
        bbb = .Execute(t)(1)
End If
End With
End Function

Function zzz1$(t$)
With CreateObject("VBScript.RegExp")
    If InStrRev(t, "кв.") = False And InStrRev(t, "к.") = False Then
    .Pattern = "д\. ?.+$": zzz1 = .Execute(t)(0)
    Else
    .Pattern = "д\. \d+|д\. ?\d+ ?к?\.?\d+": zzz1 = .Execute(t)(0)
    End If
End With
End Function

Function zzz2$(t$)
With CreateObject("VBScript.RegExp"): .Pattern = "кв\. \d+"
If .test(t) Then zzz2 = .Execute(t)(0) Else zzz2 = ""
End With
End Function