SNTP клиент - Visual Basic .NET

Формулировка задачи:

Как получить время от SNTP сервера. Везде написано, что это очень просто, при этом ни одного рабочего примера за полдня найти не удалось... Получить 4 байта, которые по описанию представляют количество секунд от определенной даты, действительно не сложно:

  
        Dim RecvBuf(3) As Byte
 
        Dim ServerIP As String
        ServerIP = "129.6.15.28"
 
        Dim ServerEp = New IPEndPoint(IPAddress.Parse(ServerIP), 37)
        Dim Time_Socket = New Socket(ServerEp.AddressFamily, SocketType.Stream, ProtocolType.IP)
 
        Try
            Time_Socket.Connect(ServerEp)
            Thread.Sleep(500)
            Time_Socket.Receive(RecvBuf)
            Time_Socket.Close()
        Catch generatedExceptionName As System.Exception
            MsgBox("ERROR")
        End Try
 
        MsgBox(RecvBuf(0).ToString + ":" +
               RecvBuf(1).ToString + ":" +
               RecvBuf(2).ToString + ":" +
               RecvBuf(3).ToString)

Но что делать с ними дальше не понятно. В примерах предлагается использовать BitConverter.ToInt32(RecvBuf, 0) но это не работает. Может у кого-то найдется рабочий пример...

Решение задачи: «SNTP клиент»

textual
                            Листинг программы 
                        

                            Function SwapEndianness(ByVal x As ULong) As UInteger
        Return DirectCast((((x And &HFF) << 24) + ((x And &HFF00) << 8) + ((x And &HFF0000) >> 8) + ((x And &HFF000000UI) >> 24)), UInteger)
    End Function
                        