Ok !

I have found the way,the Problem is in my VB.Net routine !

Maybe this help someone else!

Dim newMsg As Byte() = {33, 1, 189, 13, 10} ' 33 = !,1,Problem Byte 189,13,10
SerialPort.Write(newMsg, 0, newMsg.Length)

Regards Pesti