find it
Dim buf3(85) As Byte
buf3=Array As Byte(0x48,0xD0,0xC1,0xCE,0xFD,0xC8,0xD9,0x0A,0x50,0x6C,0x65,0x6E,0x6F,0x76,0x6F,0x0A,0x4A,0xB9,0xA9,0xB5,0xE7,0xB7,0xBD,0xB0,0xB8,0x2D,0x4D,0x6F,0x64,0x65,0x6C,0x2E,0x70,0x6C,0x74,0x0A,0x66,0x64,0x66,0x41,0x30,0x30,0x32,0xD0,0xC1,0xCE,0xFD,0xC8,0xD9,0x0A,0x55,0x64,0x66,0x41,0x30,0x30,0x32,0xD0,0xC1,0xCE,0xFD,0xC8,0xD9,0x0A,0x4E,0xB9,0xA9,0xB5,0xE7,0xB7,0xBD,0xB0,0xB8,0x2D,0x4D,0x6F,0x64,0x65,0x6C,0x2E,0x70,0x6C,0x74,0x0A,0x00)