Function Rus2Lat(txt As String, Optional ver As Double = 0.5) As String
    Dim i As Long, j As Long, s As String, out As String
    Const strLat As String = "AaBCcEeHKMOoPpTXx"
    Const strRus As String = "АаВСсЕеНКМОоРрТХх"
    Randomize
    For i = 1 To Len(txt)
        s = Mid$(txt, i, 1)
        j = InStr(strRus, s)
        If j > 0 And Rnd < ver Then s = Mid$(strLat, j, 1)
        out = out & s
    Next i
    Rus2Lat = out
End Function