Hier die Funktion, die Du in einem Modul definieren musst.
Function caesar(itext As String, d As Integer) As String
Start = 65 'Asccode von A
itext = UCase(itext) 'nur Großschrift
caesar = ""
For I = 1 To Len(itext)
asccode = Asc(Mid(itext, I, 1))
caesar = caesar & Chr(((asccode - Start + d) Mod 26) + Start)
Next I
End Function
Der Aufruf in einer Excel-Zelle: =caesar(A1,5)