Class vs ActiveX dll

Hejsa,

Jeg bruger følgende function i en Class og der fungere den fint :

'--- Function der udskiver sprog på siden.
Public Function ChosenLanguage(Language)
    Dim Lang, arrLang
    If Language = "DK" Then
        Lang = ""
        Lang = Lang & "Seneste Nyheder,"
        Lang = Lang & "Nyhed nr.,"
        Lang = Lang & "i rækken af nyheder.,"
        Lang = Lang & "Liste over alle nyheder,"
        Lang = Lang & "Læs Mere,"
        Lang = Lang & "Vis Alle Nyheder"
        arrLang = Split(Lang, ",")
    ElseIf Language = "EN" Then
        Lang = ""
        Lang = Lang & "Latest News,"
        Lang = Lang & "News no.,"
        Lang = Lang & "of all news.,"
        Lang = Lang & "List of all news,"
        Lang = Lang & "Read More,"
        Lang = Lang & "Show All News"
        arrLang = Split(Lang, ",")
    End If
    ChosenLanguage = arrLang
End Function

Og der fungere den ganske udemærket, men hvis jeg vil lave en dll med denne kode :

'--- Function der udskiver sprog på siden.
Public Function ChosenLanguage(ByVal Language As String) As String()
    Dim Lang, arrLang
    If Language = "DK" Then
        Lang = ""
        Lang = Lang & "Seneste Nyheder,"
        Lang = Lang & "Nyhed nr.,"
        Lang = Lang & "i rækken af nyheder.,"
        Lang = Lang & "Liste over alle nyheder,"
        Lang = Lang & "Læs Mere,"
        Lang = Lang & "Vis Alle Nyheder"
        arrLang = Split(Lang, ",")
    ElseIf Language = "EN" Then
        Lang = ""
        Lang = Lang & "Latest News,"
        Lang = Lang & "News no.,"
        Lang = Lang & "of all news.,"
        Lang = Lang & "List of all news,"
        Lang = Lang & "Read More,"
        Lang = Lang & "Show All News"
        arrLang = Split(Lang, ",")
    End If
    ChosenLanguage = arrLang
End Function

Får jeg fejl når jeg forsøger at kalde functionen på en asp side med disse parametre :

<%
Dim objClass
Set objClass = Server.CreateObject("Book.BookTitles")
Dim arrLang
arrLang = objClass.ChosenLanguage("DK")

Response.Write arrLang(0)
%>

fejlen er :

Type mismacth

i denne linie :

Response.Write arrLang(0)

Sidder der en der lige kan fortælle mig hvad jeg skal eller ikke skal gøre for at få det til at virke ?

/Websam