vb关于Function函数的调用

Public Function chg(rmsg As String) As String
Dim tep As String
Dim temp As String
Dim i As Integer
Dim b As Integer
tep = rmsg
i = Len(tep)
b = i / 4
If i = b * 4 Then
b = b - 1
tep = Left(tep, b * 4)
Else
tep = Left(tep, b * 4)
End If
chg = ""
For i = 1 To b
temp = "&H" & Mid(tep, (i - 1) * 4 + 1, 4)
chg = chg & ChrW(CInt(Val(temp)))
Next i
End Function
我应该怎样才能在其他sub中用到返回值，比如在text中显示返回值
说的没错，可我用的时候得到的不是我想要的，这段代码是关于把中文转换为Unicode码，text里面怎么是空白阿，谢谢，如果能给我答复，我提高悬赏

vb关于Function函数的调用 VB中Function函数 VB的function问题 vb能不能function一个数组函数? 关于JAVA SCRIPT 函数过程FUNCTION的作用条件 关于function的问题 关于VB函数的问题 关于vb的函数问题 权重函数 weighting function 的数学含义 matlab中function函数的具体用法