It is difficult to envisgae what the final code is meant to look like, what is variables, what is text, but is this any better?

[vba]

With Workbooks(BestandsNaam).VBProject.VBComponents("Blad2").CodeModule
.InsertLines .CountOfLines + 1, _
"private Sub " & "bLeverantieToevoegen" & typenVerzameling(typenVuller) & "_click()" & vbNewLine & _
" Sheets(""Algemeen"").Cells(1, 1).Value = ""Woning"" " & vbNewLine & _
" Sheets(""Algemeen"").Cells(1, 2).Value = ""Type Woning leverantie"" " & vbNewLine & _
" Sheets(""Algemeen"").Cells(1, 3).Value = ""Type Woning Uren"" " & vbNewLine & _
" Sheets(""Algemeen"").Cells(1, 4).Value = " & """" & _
"Leverantie Details(Groep: " & groepNaam & ", Type: " & _
typeNaam & "(" & nummer & "))" & """" & vbNewLine & _
" Sheets(""Algemeen"").Cells(1, 5).Value = " & """" & _
"Uren Details(Groep: " & groepNaam & ", Type: " & _
typeNaam & "(" & nummer & "))" & """" & vbNewLine & _
" Load Selecteren" & vbNewLine & _
" Selecteren.Show" & vbNewLine & _
"End Sub" & vbCrLf
End With
[/vba]