The decrypt function would just be the reverse:
Function Decrypt(ByVal Text As String, ByVal key1 As Long, ByVal key2 As Long) As String
Dim outText As String
Dim nT() As String
Dim i As Integer
nT = Split(Text, " ")
For i = 0 To UBound(nT)
outText = outText &...