帮忙看一下，这段代码是什么意思

我有一个台湾的朋友给的文件，在我的机器上调试总是出现乱码，这种情况一般怎么解决
还有，在里边有这么一段代码，这个是什么意思 Function SYS_URLEncode(A)
A = Replace(A, vbCrLf, "$$vbCrLf$$")
A = Replace(A, " ", "%20")
A = Replace(A, "&", "%26amp;")

TempValue = ""
For i = 1 To Len(A)
ThisChr = Mid(A, i, 1)
If Abs(Asc(ThisChr)) < &HFF Then
TempValue = TempValue & ThisChr
Else
innerCode = Asc(ThisChr)
If innerCode < 0 Then
innerCode = innerCode + &H10000
End If
Hight8 = (innerCode  And &HFF00) \ &HFF
Low8 = innerCode And &HFF
TempValue = TempValue & "%" & Hex(Hight8) &  "%" & Hex(Low8)
End If
Next
SYS_URLEncode = TempValue
End Function