菜鸟求助。。。

Private Sub Form_Load()
Dim s As String
s = "44696D206E20417320496E74656765720D0A507269766174652053756220436F6D6D616E64315F436C69636B28290D0A44696D207820417320496E74656765720D0A78203D2056616C2854657874312E54657874290D0A49662078203D20313238205468656E0D0A4C6162656C312E43617074696F6E203D2022B4F0B6D4C1CB220D0A6E203D20300D0A456E642049660D0A49662078203E20313238205468656E0D0A4C6162656C312E43617074696F6E203D2022B9F3C1CB220D0A6E203D206E202B20310D0A456E642049660D0A49662078203C20313238205468656E0D0A4C6162656C312E43617074696F6E203D2022B1E3D2CBC1CB220D0A6E203D206E202B20310D0A456E642049660D0A4966206E203D2033205468656E0D0A4D7367426F78202822B3F6BED622290D0A456E642049660D0A456E64205375620D0A"
Debug.Print Decode(s)
End Sub
Private Function Decode(Code As String) As String
Dim Codes() As Byte
ReDim Codes(Len(Code) \ 2)
For i = 0 To Len(Code) - 1 Step 2
Codes(i \ 2) = Val("&H" & Mid(Code, i + 1, 2))
Next
Decode = StrConv(Codes, vbUnicode)
End Function
打开程序，立即窗口取代码吧