mesh explode

Iam trying to recreate uto's explode mesh (creates new mesh from every single meshface)

Private Sub RunScript(ByVal meshIn As Mesh, ByVal dirVec As Vector3d, ByVal makeQuads As Object, ByRef triangulated As Object)
Dim meshList As New List(Of Mesh)
Dim meshInQuad As New Mesh
meshInQuad = meshIn
Dim meshDT As New DataTree(Of Point3d)

If makeQuads = True Then
meshInQuad.Faces.ConvertTrianglesToQuads(system.Math.PI, 0.00000001)
End If

Dim meshVerts As New List(Of point3d)(meshInQuad.Vertices.ToPoint3dArray)

For i As Integer = 0 To meshInQuad.Faces.Count - 1 Step 1
Dim newMesh As New mesh

Dim actFVert As New List(Of Integer)(meshInQuad.Faces.GetTopologicalVertices(i))

If actFVert.Count = 3 Then

Dim newF As New meshface

newF = meshInQuad.Faces.item(i)
newMesh.Vertices.Add(meshInQuad.Vertices.item(newF.A))
newMesh.Vertices.Add(meshInQuad.Vertices.item(newF.b))
newMesh.Vertices.Add(meshinquad.vertices.item(newF.c))
newmesh.Faces.AddFace(meshInQuad.Faces.GetFace(i))
Else
Dim newF As New meshface
newF = meshInQuad.Faces.item(i)
newMesh.Vertices.Add(meshInQuad.Vertices.item(newF.A))
newMesh.Vertices.Add(meshInQuad.Vertices.item(newF.b))
newMesh.Vertices.Add(meshinquad.vertices.item(newF.c))
newMesh.Vertices.Add(meshinquad.vertices.item(newF.d))
newmesh.Faces.AddFace(meshInQuad.Faces.GetFace(i))

End If
meshList.Add(newMesh)
Next

Why output is a complete mess ? I tried millions of combinations with get, set, copy vertices as point, integer etc...