Il parametro lpSecurityAttributes deve essere dichiarato ByVal

ByVal lpSecurityAttributes As Long

e, ovviamente, la porta non deve essere già utilizzata ...