VB6.0 让函数返回一个值

帮一客户修改VB6.0程序，需要定义一个函数，并且返回一个值。

如果是Java/C#之类的工具，很容易，一个return就行。到VB这，不能直接用return，研究了一会儿，函数返回一个值的方法总结如下：

Public Function URLEncodeNew(ByVal strContent As String) As String

    Dim str As String
    //...
    URLEncodeNew = str

End Function

就是 函数名 = 返回值

就能将一个值返回了。使用的时候和其他编程工具一致。

content = URLEncodeNew(content)