problems converting C# code to VB.net (MSMQ formatter problem)

[CLEAR-RCIC]

I have a piece of code that works in C# but when I convert it to VB.Net I get
the following error: "Cannot deserialize the message passed as an argument.
Cannot recognize the serialization format."

C# Code
-----------
System.Messagin g.MessageQueue myInputQueue = new
System.Messagin g.MessageQueue( @".\Private$\In putQueue");
((XmlMessageFor matter)myInputQ ueue.Formatter) .TargetTypes = new
Type[]{typeof(Order)} ;

Order test1 = new Order();
test1.intID = "123";
System.Messagin g.Message m1 = new System.Messagin g.Message(test1 );
myInputQueue.Se nd(m1);

System.Messagin g.Message m2 = myInputQueue.Re ceive();
Order test2 = (Order)m2.Body;
MessageBox.Show (test2.SSN);

VB.Net Code
--------------
Dim myMessageQueue As MessageQueue = New MessageQueue(g_ strInputQueue)
CType(myMessage Queue.Formatter , XmlMessageForma tter).TargetTyp es = (New
Type() {GetType(Order( ))})

Dim myOrder As Order = New Order
myOrder.intID = "123"
Dim myMessage As Message = New Message(myOrder )
myMessageQueue. Send(myMessage)

Dim myNewMessage As Message = myMessageQueue. Receive
Dim myNewOrder As Order = CType(myNewMess age.Body, Order)

Does anyone have any ideas?

[CLEAR-RCIC]

Nevermind...I got it working.

"CLEAR-RCIC" wrote:

I have a piece of code that works in C# but when I convert it to VB.Net I get
the following error: "Cannot deserialize the message passed as an argument.
Cannot recognize the serialization format."

C# Code
-----------
System.Messagin g.MessageQueue myInputQueue = new
System.Messagin g.MessageQueue( @".\Private$\In putQueue");
((XmlMessageFor matter)myInputQ ueue.Formatter) .TargetTypes = new
Type[]{typeof(Order)} ;

Order test1 = new Order();
test1.intID = "123";
System.Messagin g.Message m1 = new System.Messagin g.Message(test1 );
myInputQueue.Se nd(m1);

System.Messagin g.Message m2 = myInputQueue.Re ceive();
Order test2 = (Order)m2.Body;
MessageBox.Show (test2.SSN);

VB.Net Code
--------------
Dim myMessageQueue As MessageQueue = New MessageQueue(g_ strInputQueue)
CType(myMessage Queue.Formatter , XmlMessageForma tter).TargetTyp es = (New
Type() {GetType(Order( ))})

Dim myOrder As Order = New Order
myOrder.intID = "123"
Dim myMessage As Message = New Message(myOrder )
myMessageQueue. Send(myMessage)

Dim myNewMessage As Message = myMessageQueue. Receive
Dim myNewOrder As Order = CType(myNewMess age.Body, Order)

Does anyone have any ideas?