{NeoBook Function}
Version=5,80
Language=VBScript
Param=[%1]|Text|Param1
{End}
Function Ansi2Utf8(ansiString)
    Dim objStream
    Set objStream = CreateObject("ADODB.Stream")

    objStream.Charset = "ISO-8859-1" ' ANSI charset
    objStream.Open
    objStream.WriteText ansiString
    objStream.Position = 0
    objStream.Charset = "UTF-8"

    Ansi2Utf8 = objStream.ReadText

    objStream.Close
    Set objStream = Nothing
End Function



publication.nbSetVar "[result]", Ansi2Utf8( "[%1]" )
