How to decrypt

Question

Hi All,

How to decrypt for this command :

    Dim VarXor As String * 1
   
    VarXor = 80
   
   
    For n = 1 To Len(sparameter)
        sMsg = Mid(sparameter, n, 1)
        PResult = Asc(sMsg) - 25
        If PResult < 0 Then
            PResult = PResult + 256
        End If
        PEncrypt = PResult Xor VarXor
        x = String(2 - Len(Hex(PEncrypt)), "0") & Hex(PEncrypt)
        sResult = sResult & x
    Next
        Encrypt = sResult