Imports System

Imports Microsoft.VisualBasic

Public Module Module1

    Public Sub Main()

        Dim list As String() = {"a1", "b2", "c3"}

        Console.WriteLine(ShowParmValues(list))     

    End Sub

​

    'Public Function ShowParmValues(ByVal parm As Parameter, ByVal Optional separator As String = ",") As String 

    Public Function ShowParmValues(ByVal parm As String(), ByVal Optional separator As String = ",") As String 

        Dim result As String 

        Dim count As Integer = parm.Length-1 ' parm.Count-1

        For i As Integer = 0 To count

            Dim p As String = parm(i) ' parm.Value(i) ' parm.Label(i)

            result &= "'" & CStr(p) & "'" & IIF(i < count, separator, "")

        Next

        Return result

    End Function

End Module

​

​