Bene per tutto quello che ti hanno suggerito.
Inoltre, direi...
da questo pezzo
PaperBetti:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SerialPort1.Open()
SerialPort1.Write("1")
SerialPort1.Close()
End Sub
vedo che apri e chiudi la seriale ogni volta che premi il pulsante.
Sarebbe auspicabile invece aprire la seriale all'inizio e tenerla aperta, per chiuderla solo all'uscita.