kiku様、魔界の仮面弁士様、アドバイスありがとうございました。
お二人のアドバイスを元に色々試してみました。結果的にはコマンドを送信し、レスポンスを受信できました。お礼申し上げます。

途中ですが、今回成功したプログラムを記載させていただきます。

     Try
            Dim UdpMyClient As New UdpClient
            Dim Target_IP As IPAddress = IPAddress.Parse("133.113.0.42")
            Dim Target_Port As Integer = 8000

            UdpMyClient.Connect(Target_IP, Target_Port)
            UdpMyClient.Client.ReceiveTimeout = 1000
            UdpMyClient.Client.SendTimeout = 1000

            Dim cmd As Byte() = {&H80, &H0, &H2, &H0, &H2A, &H10, &H0, &H28, &H0, &H5, &H1, &H1, &H82, &H0, &HA, &H0, &H0, &H1}

            UdpMyClient.Send(cmd, cmd.Length)

            Dim response As Byte()
            Dim ep As New IPEndPoint(Target_IP, Target_Port)

            response = UdpMyClient.Receive(ep)

            For i = 0 To response.Count - 1
                Console.WriteLine(response(i))
            Next

            UdpMyClient.Close()

        Catch ex As Exception
            Console.WriteLine(ex)
        End Try


魔界の仮面弁士様のアドバイスを元に改良してみてBinary Writerを使うプログラムを試したのですがDim stream As New NetworkStream(MyUdpClient.Client, True)　の部分で　　
"ストリームに方向づけられていないソケットでは実行できない操作です。"
と例外が発生します。色々探しては見たのですが、見つけることができませんでした。何かアドバイス頂けないでしょうか？
プログラムを途中まで記載させていただきます。

  Try
            Dim MyUdpClient As New UdpClient
            Dim Target_IP As IPAddress = IPAddress.Parse("133.113.0.42")
            Dim Target_Port As Integer = 8000

            MyUdpClient.Client.ReceiveTimeout = 1000
            MyUdpClient.Client.SendTimeout = 1000
            Dim cmd As Byte() = {&H80, &H0, &H2, &H0, &H2A, &H10, &H0, &H28, &H0, &H5, &H1, &H1, &H82, &H0, &HA, &H0, &H0, &H1}

            MyUdpClient.Connect(Target_IP, Target_Port)
            Dim stream As New NetworkStream(MyUdpClient.Client, True)

            Dim writer As BinaryWriter = New BinaryWriter(Stream)
                         ///////////以下省略///////////////