Sub test()
Dim a, b, c, d As String
c = "977484691753649015648892966987691643279490771591486987671887"
b = "Rrfvtgbyhnujm"
a = ""
lentext = Len(c)
lenpass = Len(b)
For cn = 1 To lentext Step 3
a = a + Chr(Val(Mid(c, cn, 3)) Xor Asc(Mid(b, (Int(cn / 3) Mod lenpass) + 1, 1)))
Next cn
MsgBox a
End Sub