All your components have the same name "par3"
Dim msg As String = "Set the Pin Number 3 = physical pin 15 = GPIO22 = GPIO_GEN3 as GpioPinDigitalOutput{BR}(the GPIO_GEN3 indicates Pin 3)"
page.Cell(4,1).AddComponent(ABMShared.BuildParagraph(page,"par3",msg) )
' row 5 as test
page.Cell(5,1).AddComponent(ABMShared.BuildParagraph(page,"par3", "1") )
page.Cell(5,2).AddComponent(ABMShared.BuildParagraph(page,"par3", "2") )
page.Cell(5,3).AddComponent(ABMShared.BuildParagraph(page,"par3", "3") )
page.Cell(5,4).AddComponent(ABMShared.BuildParagraph(page,"par3", "4") )
page.Cell(5,5).AddComponent(ABMShared.BuildParagraph(page,"par3", "5") )
page.Cell(5,6).AddComponent(ABMShared.BuildParagraph(page,"par3", "6") )
page.Cell(5,7).AddComponent(ABMShared.BuildParagraph(page,"par3", "7") )
page.Cell(5,8).AddComponent(ABMShared.BuildParagraph(page,"par3", "8") )
page.Cell(5,9).AddComponent(ABMShared.BuildParagraph(page,"par3", "9") )
page.Cell(5,10).AddComponent(ABMShared.BuildParagraph(page,"par3", "10") )
page.Cell(5,11).AddComponent(ABMShared.BuildParagraph(page,"par3", "11") )
page.Cell(5,12).AddComponent(ABMShared.BuildParagraph(page,"par3", "12") )
should be:
Dim msg As String = "Set the Pin Number 3 = physical pin 15 = GPIO22 = GPIO_GEN3 as GpioPinDigitalOutput{BR}(the GPIO_GEN3 indicates Pin 3)"
page.Cell(4,1).AddComponent(ABMShared.BuildParagraph(page,"par3",msg) )
' row 5 as test
page.Cell(5,1).AddComponent(ABMShared.BuildParagraph(page,"par4", "1") )
page.Cell(5,2).AddComponent(ABMShared.BuildParagraph(page,"par5", "2") )
...