ExcelML Border Styling

[GP]

Hi, I am trying to add grid lines to excelml or a border.  I want this applied to all styles no matter what style it is.  I tried to do this to the default styles, but my excel file won't open because it's "corrupt".  Here is my code:

        

For Each style As StyleElement In e.Styles
    Select Case style.Id
        Case "itemStyle"
            Dim borders As New BorderStylesCollection()
            Dim borderStyle As New BorderStyles
            For i As Integer = 1 To 4
                'four borders
                borderStyle.PositionType = DirectCast(i, PositionType)
                borderStyle.Color = System.Drawing.Color.Black
                borderStyle.LineStyle = LineStyle.Continuous
                borderStyle.Weight = 1.0R
                borders.Add(borderStyle)
            Next
            For Each border As BorderStyles In borders
                style.Borders.Add(border)
            Next
            Exit Select
        Case "alternatingItemStyle"
            Dim borders As New BorderStylesCollection()
            Dim borderStyle As New BorderStyles
            For i As Integer = 1 To 4
                'four borders
                borderStyle.PositionType = DirectCast(i, PositionType)
                borderStyle.Color = System.Drawing.Color.Black
                borderStyle.LineStyle = LineStyle.Continuous
                borderStyle.Weight = 1.0R
                borders.Add(borderStyle)
            Next
            For Each border As BorderStyles In borders
                style.Borders.Add(border)
            Next
            Exit Select
    End Select
Next

Can anyone help me?

Thank you.

[GP]

Never mind.  I found my own fix.  It was tricky, but I got one thing to work, and I started wondering that if I created different borderstyles for each border, would that override whatever was corrupting my file...  Answer, yes!

For Each style As StyleElement In e.Styles

            Dim borders As New BorderStylesCollection()
            Dim borderStyle As New BorderStyles
            Dim borderStyle2 As New BorderStyles
            Dim borderStyle3 As New BorderStyles
            Dim borderStyle4 As New BorderStyles

            'four borders
            borderStyle.PositionType = DirectCast(1, PositionType)
            borderStyle.Color = System.Drawing.Color.Black
            borderStyle.LineStyle = LineStyle.Continuous
            borderStyle.Weight = 1.0R
            borders.Add(borderStyle)

            borderStyle2.PositionType = DirectCast(2, PositionType)
            borderStyle2.Color = System.Drawing.Color.Black
            borderStyle2.LineStyle = LineStyle.Continuous
            borderStyle2.Weight = 1.0R
            borders.Add(borderStyle2)

            borderStyle3.PositionType = DirectCast(3, PositionType)
            borderStyle3.Color = System.Drawing.Color.Black
            borderStyle3.LineStyle = LineStyle.Continuous
            borderStyle3.Weight = 1.0R
            borders.Add(borderStyle3)

            borderStyle4.PositionType = DirectCast(4, PositionType)
            borderStyle4.Color = System.Drawing.Color.Black
            borderStyle4.LineStyle = LineStyle.Continuous
            borderStyle4.Weight = 1.0R
            borders.Add(borderStyle4)

            For Each border As BorderStyles In borders
                style.Borders.Add(border)
            Next
        Next