Public Function Ping() As Long
 
        Dim intCount As Integer
        Dim aReplyBuffer(255) As Byte
 
        Dim intNBytes As Integer = 0
 
        Dim intEnd As Integer
        Dim intStart As Integer
 
        Dim epFrom As System.Net.EndPoint
        Dim epServer As System.Net.EndPoint
        Dim ipepServer As System.Net.IPEndPoint
        Dim ipepServer1 As System.Net.IPEndPoint
 
        '*
        '* Transforms the IP address in EndPoint
           ''Hier kommt der Abbruch       
        ipepServer = New System.Net.IPEndPoint(ipheHost.AddressList(0), 0)
        MessageBox.Show(ipepServer.ToString)
        If ipepServer Is Nothing Then MessageBox.Show("nothing")
        epServer = CType(ipepServer, System.Net.EndPoint)
        epFrom = New System.Net.IPEndPoint(ipheLocalHost.AddressList(0), 0)
        '* Builds the packet to send
        DataSize = Convert.ToByte(DataSize + intBufferHeaderSize)
        '* The packet must by an even number, so if the DataSize is and odd 
        ' number adds one 
          If (DataSize Mod 2 = 1) Then
            DataSize += Convert.ToByte(1)
        End If