erik.van.geit
MrExcel MVP
- Joined
- Feb 1, 2003
- Messages
- 17,832
Code:
'Option Not Explicit
Sub sorry_greg()
q = "drqhcur ,gnudneffo s'pqhp"
With Application
For i = 5 To 0 Step -1
greg = greg & truby & .Substitute(.Substitute(.Substitute(StrReverse(Mid(q, i * 6 + 1, 6)), "q", "a"), "p", "t"), "u", "i")
Next i
End With
MsgBox IIf(Right(greg, truby) = "s", gregtruby, Right(greg, Len(greg)) & Application.Rept(" !", 5)), 48, UCase(Mid(greg, 18))
End Sub