Namespace hsbTestNS
    Public Class hsbTestCL
        Public Function testIt(ByVal arIn() As String)
            MsgBox("Folgende Eingaben wurden übergeben: " & arIn.ToString)
            Dim ArOut(2) As String
            ArOut(0) = "Hello"
            ArOut(1) = "World"
            Return ArOut
        End Function
    End Class
End Namespace