Imports System
Imports System.Windows.Forms
Namespace hsbTestNS    
    Public Class hsbTestCL
        Public Function testIt(ByVal arIn As String()) As String()
            Dim arOut As String() = New String(2) {}
            For i As Integer = 0 To arIn.Length - 1
                MessageBox.Show(arIn(i))
            Next
            arOut(0) = "Hello"
            arOut(1) = "VB Minus - Minus"           
            arOut(2) = ";-("       
            Return arOut
        End Function
    End Class
End Namespace