สั่งพิมพ์เครื่อง ZEBRA RW 420 จาก PPC แล้วไม่เป็นภาษาไทย เป็น ????? ต้องแก้อย่างไรค่ะ

 Dim vPRT As SerialPort
        vPRT = New SerialPort("COM6", 19200, Parity.None, 8, StopBits.One)
        vPRT.ReadTimeout = 10000
        vPRT.WriteTimeout = 10000
       vPRT.Encoding = Encoding.GetEncoding(UTF-8)
        vPRT.Open()
        vPRT.WriteLine("การทำงานต้องประสบความสำเร็จจิงมะ  อิอิ")//จะแสดงผลเป็น ??????????????????  ?????
        vPRT.WriteLine(vbLf)
        vPRT.WriteLine(vbLf)
        vPRT.Write(Chr(10))
         vPRT.Close()