<asp:GridView ID="GridView1" runat="server" BackColor="LightGoldenrodYellow" 
BorderColor="Tan" BorderWidth="1px" CellPadding="2" ForeColor="Black" 
GridLines="None">
 <Columns>
  <asp:BoundField HeaderText="Port" >
   <ItemStyle HorizontalAlign="Left"  Width="50px"  ></ItemStyle>
  </asp:BoundField>
  <asp:BoundField HeaderText="Gerät" >
   <ItemStyle HorizontalAlign="Left"  Width="50px"  ></ItemStyle>
  </asp:BoundField>
  <asp:BoundField HeaderText="Freig.Adr." >
   <ItemStyle HorizontalAlign="Left"  Width="50px"  ></ItemStyle>
  </asp:BoundField>
  <asp:BoundField HeaderText="MAC" >
   <ItemStyle HorizontalAlign="Left"  Width="50px"  ></ItemStyle>
  </asp:BoundField>
  <asp:TemplateField HeaderText="popup">
   <ItemTemplate><asp:Button ID="pop" runat="server" Text="pop" _
     CommandName="pop"/></ItemTemplate>
  </asp:TemplateField>
 </Columns>
 <FooterStyle BackColor="Tan" />
 <PagerStyle BackColor="PaleGoldenrod" ForeColor="DarkSlateBlue" _
   HorizontalAlign="Center" />
 <SelectedRowStyle BackColor="DarkSlateBlue" ForeColor="GhostWhite" />
 <HeaderStyle BackColor="Tan" Font-Bold="True" HorizontalAlign="Center" />
 <RowStyle HorizontalAlign="Center" />
 <EditRowStyle HorizontalAlign="Center" />
 <AlternatingRowStyle BackColor="PaleGoldenrod" />
</asp:GridView>

Dim dt As DataTable = New DataTable
Dim dr As DataRow
 
dt.Columns.Add(New DataColumn("Port", GetType(String)))
dt.Columns.Add(New DataColumn("Gerät", GetType(String)))
dt.Columns.Add(New DataColumn("Freig.Adr.", GetType(String)))
dt.Columns.Add(New DataColumn("MAC", GetType(String)))
 
For i = 0 To UBound(sArray) - 3
  If InStr(sArray(i), "(FE") > 0 Or InStr(sArray(i), "(GE") > 0 Then
    dr = dt.NewRow()
    dr(0) = "  " & sArray(i).Substring(7, 6) & "  "
    dr(1) = sArray(i).Substring(14, InStr(sArray(i), "Adr.:") - 15) & "  "
 
    Dim start As Integer = InStr(sArray(i), "Adr.:") + 6
    If Left(Right(sArray(i), 3), 1) = ":" Then
      dr(2) = Mid(sArray(i), start, Len(sArray(i)) - (start + 16))
      dr(3) = Right(sArray(i), 17)
    ElseIf Left(Right(sArray(i), 3), 1) = "o" Then
      dr(2) = Mid(sArray(i), start, Len(sArray(i)) - (start + 3))
      dr(3) = "Down"
    ElseIf Left(Right(sArray(i), 3), 1) = "u" Then
      dr(2) = Mid(sArray(i), start, Len(sArray(i)) - (start + 21))
      dr(3) = "Wartend auf Verbindung"
    ElseIf Left(Right(sArray(i), 3), 1) = "g" Then
      dr(2) = Mid(sArray(i), start, Len(sArray(i)) - (start + 16))
      dr(3) = "NoPortSec"
    Else
      'Nothing
    End If
    dt.Rows.Add(dr)
  End If
Next
GridView1.DataSource = dt
GridView1.DataBind()