VB类型不匹配'返回'

Question

我想使用一个函数来返回一个字符串，但是我一直遇到一个类型不匹配的问题＆＃39;返回＆＃39;错误。

非常感谢任何帮助。

Dim myvar
myvar = getMultiLineString()
MsgBox(myvar)

Function getMultiLineString()

    Dim a(3)
    Dim i
    Dim query

    a(1)   = "test line 1"
    a(2)   = "test line 2"
    a(3)   = "test line 3"

    query = a(1)

    For i=2 to 3
        query = query & VbCrLf &  a(i)
    next

    MsgBox(query)
    Return query

End Function

Answer 1

而不是

Return query

你会使用＆＃34; name_of_function = value_it_should_return＆＃34;：

getMultiLineString = query