Insert alt enter into a cell or a column with defined comma counted

Dim oCt, oNum As Integer, nNum As String
oCt = Split(Selection.Value, ",")

For oNum = 0 To UBound(oCt)
        If oNum <> 0 And (oNum + 1) Mod 5 = 0 Then
                nNum = nNum & oCt(oNum) & "," & Chr(10)
            Else
                nNum = nNum & oCt(oNum) & ","
        End If
Next oNum

With Range(Selection.Address)
.Value = nNum
.WrapText = True
End With

Function AddLF(txt As String, delim As String, n As Long) As String
Dim x, i As Long
x = Split(txt, delim)
For i = 0 To UBound(x) Step n
    If i <> 0 Then x(i) = vbLf & x(i)
Next
AddLF = Join(x, delim)
End Function

Function AddLF(txt As String, delim As String, n As Long) As String
Dim x, i As Long
x = Split(Replace(txt, vbNewLine, ""), delim)
For i = 0 To UBound(x) Step n
    If i <> 0 Then x(i) = vbNewLine & x(i)
Next
AddLF = Join(x, delim)
End Function