Imports Microsoft.VisualBasic
Dim list As String() = {"a1", "b2", "c3"}
Console.WriteLine(ShowParmValues(list))
Public Function ShowParmValues(ByVal parm As String(), ByVal Optional separator As String = ",") As String
Dim count As Integer = parm.Length-1
For i As Integer = 0 To count
Dim p As String = parm(i)
result &= "'" & CStr(p) & "'" & IIF(i < count, separator, "")