Function onlyText$(ByVal txt As String)
    Set myReg = CreateObject("VBScript.RegExp")
    With myReg
        .Global = True: .IgnoreCase = True: .MultiLine = True
        .Pattern = "[^a-zёа-я]"
        onlyText = .Replace(txt, "")
    End With
End Function

Function onlyLat$(ByVal txt As String)
    Set myReg = CreateObject("VBScript.RegExp")
    With myReg
        .Global = True: .IgnoreCase = True: .MultiLine = True
        .Pattern = "[А-яЁё]"
    End With    
    onlyLat = myReg.Replace(txt, "")
End Function

Function onlyNum$(ByVal txt As String)
    Set myReg = CreateObject("VBScript.RegExp")
    With myReg
       .Global = True: .IgnoreCase = True: .MultiLine = True
       .Pattern = "\D+"
    End With    
    onlyNum = myReg.Replace(txt, "")
End Function