请问苯褥箭势尤vrr这样的字符怎么来的

看代码时候看到

Label1.Caption = Decode("苯褥箭势尤vrrbbb咯贰得子尤褥箭、纬粳vrrbbb得寿颧徐咳咳矣子尤贰不赋峙+椽菠嘎褥箭、")

转换过程

Public Function Decode(str As String)

Dim Tmp As String, i As Long, t1, t2, t3

For i = 1 To Len(str)

t1 = Mid$(str, i, 1) '返回 Variant (String)，其中包含字符串中指定数量的字符。
t2 = Asc(t1) + 1 '返回一个 Integer，代表字符串中首字母的字符代码。

'chr 返回 String，其中包含有与指定的字符代码相关的字符 。

Tmp = Tmp & Chr$(t2)

Next ' SetParent myfrm.hwnd, h

Decode = Tmp ' SetParent myfrm.hwnd, h
Debug.Print Decode
End Function

请问如果我的正常字符怎么转换为这种怪字符，即逆算法。