帮一客户修改VB6.0程序，需要定义一个函数，并且返回一个值。
如果是Java/C#之类的工具，很容易，一个return就行。到VB这，不能直接用return，研究了一会儿，函数返回一个值的方法总结如下：
Public Function URLEncodeNew(ByVal strContent As String) As StringDim str As String//...URLEncodeNew = strEnd Function就是 函数名 = 返回值
就能将一个值返回了。使用的时候和其他编程工具一致。
content = URLEncodeNew(content)
