A VBA function to wrap a long string with newline characters

wrapString.vb

Function wrapString(incomingStr) As String

    Dim pParts() As String
        
    pParts = Split(incomingStr, " ")
    Dim result As String
                
    Dim k As Integer
    For k = LBound(pParts) To UBound(pParts)
        result = result & pParts(k)
        If k Mod 3 = 0 Then
            result = result & "\n"
        Else
            result = result & " "
        End If
    Next k
    wrapString = result
End Function