سلام دوست عزیز
من خودم از ین کد استفاده می کنم
Dim comp As MSComm
Set comp = New MSComm
comp.CommPort = 5

If comp.PortOpen = False Then
comp.PortOpen = True
End If

comp.Settings = "115200,n,8,1"
comp.Handshaking = comNone

موفق باشید