Public Function HentEnServerInfo(ByVal server As String) As String()
        Dim x As Integer = 0
        Dim buffer() As Byte = New Byte(8096) {}
        Dim send As String = "\xFE\xFD\x00\x10\x20\x30\x40\xFF\xFF\xFF\x01"
 
 
        'Application.DoEvents();
        Dim serverip As String = server.Split(":"c)(0)
        Dim serverport As Integer = Convert.ToInt32(server.Split(":"c)(1))
 
        Dim ipe As IPEndPoint = New IPEndPoint(IPAddress.Parse(serverip), _
          serverport)
 
        Dim s As Socket = New Socket(AddressFamily.InterNetwork, _
          SocketType.Dgram, ProtocolType.Udp)
        s.Connect(ipe)
        x = s.Send(System.Text.Encoding.Default.GetBytes(send), 0, send.Length, _
          SocketFlags.None)
        s.SetSocketOption(SocketOptionLevel.Socket, _
        SocketOptionName.ReceiveTimeout, 200)
 
        Try
            s.Receive(buffer, SocketFlags.None) ' <-- This is where the error 
            ' occurr
        Catch ex As Exception
            Return New String() {"Error"}
        Finally
            s.Close()
            s = Nothing
        End Try
 
 
 
        'Strukturerer data
        Dim data As String = System.Text.Encoding.Default.GetString(buffer)
        Dim dataarr() As String = Split(data, "\0")
 
        Return dataarr
    End Function