Module Module1
Sub Main()
Dim strs As String() = {" 1, ", " 2, ", " 3, "}
strs = strs.Select(Function(s) s.Trim(New Char() {",", " "})).ToArray()
Dim Res As String = String.Join("", strs)
End Sub
End Module