Non ho testato le prestazioni ma per semplicità potrebbe essere utile scrivere

codice:
        For i = s.Length - 1 To 1 Step -1
            s = s.Insert(i, ",")
        Next i