Wenn Du mit Flusskontrolle arbeiten möchtest, dann muss diese von allen Geräten unterstützt werden. Beim AVR kann ich da nix entdecken. Versuch mal folgendes:

Private Sub senden_Click()
MSComm1.RTSEnable = False
MSComm1.Output = Chr(49) + Chr(13)
MSComm1.RTSEnable = True
End Sub