du musst in VB aber auch den ASCII Code für "1" senden
BaseStream.WriteByte verlangt als Argument ein Byte...
also
Code:
    Private Sub cmdEingabe1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdEingabe1.Click
        SerialPort1.BaseStream.WriteByte(49)
    End Sub
mfg