Попробуйте отправить сумму для подтверждения по Serialport

Question

помогите, я пытаюсь отправить сумму с PCc на veriphone visa. Mastercard, но я получаю ошибку

        SerialPort1.Open()
        Dim MyInt As Integer = Val(TextBox1.Text)
        Dim b As Byte() = BitConverter.GetBytes(MyInt)
        SerialPort1.Write(b, 0, b.Length)
        SerialPort1.Close()

Ошибка: