You should add an enter to ss: ss = "a" & vbcrlf
Use MSComm.input in the OnComm event.