function TESTE()

  dim arrTexto(3)

  arrTexto(0) = "Blablabla"

  arrTexto(1) = "Maisalgumacoisa"

  arrTexto(2) = "Maisoutracoisa"

  TESTE = arrTexto(0) & vbCrLf & arrTexto(1)  & vbCrLf & arrTexto(2)

end function

 

Response.write TESTE()

 

Se vc quiser passa parâmetros com espaço em branco, depois vc dar um Split neste valor e atribuir cada pedaço ás partes do array da sua função.

 

T+