Public Class eib
    Public Shared GA(1) As String
    Public Shared Wert(1) As String
    Public Shared Typ(1) As String
    Public Shared Info(1) As String
    Public Shared Time(1) As Date
    Function lesen()
        Dim i As Integer = 0
        Dim fstreamer As New FileStream("\config.eib", FileMode.Open, _
          FileAccess.Read)
        Dim SReaderer As New StreamReader(fstreamer, _
        System.Text.Encoding.Default)
        Do Until SReaderer.Peek = -1
            Dim strtemp() = SReaderer.ReadLine.Split(";")
            GA(i) = strtemp(0)
            Info(i) = strtemp(1)
            Wert(i) = 0
            Typ(i) = strtemp(2)
            Time(i) = Date.Now
            i += 1
            ReDim Preserve GA(i)
            ReDim Preserve Info(i)
            ReDim Preserve Wert(i)
            ReDim Preserve Typ(i)
            ReDim Preserve Time(i)
        Loop
        SReaderer.Close()
    End Function
 
 Function IndexGet(ByVal such As String) As Short
        Dim i As Short
        For i = 0 To GA.GetUpperBound(0)
            If GA(i) = such Then
                Return i
            End If
        Next
    End Function

Private Sub AxEIBnet1_OnReceive(ByVal sender As System.Object, ByVal e As _
  AxEIBNETLib._DEIBnetEvents_OnReceiveEvent) Handles AxEIBnet1.OnReceive
        Dim index As Short = eib.IndexGet(eib.gadecode(e.groupAddr))
        Time(index) = Now
        Wert(index) = eib.ValueDecode(index, e.value)
 
        lstBus.Items.Add(GA(index) & " = " & Wert(index) & "   ; " & Info( _
          index) & "  um  " & Time(index))
    End Sub