Visual Basic - Mandar por la COM con visual 3

Tengo que hacer un programa con visual basic 3.0 que envie datos una COM. El caso es que al ejecutar el programita me da un problema 'DEVICE UNAVAILABLE'

Mas o menos el codigo qure tengo escrito es este

Sub Form_Load ()
'Abro la com que en portcomm le e dicho que es la 1
comm1.PortOpen = True

comm1.Output = "Hola"
comm1.Output = "Mundo"

'Cerro la com que en portcomm le e dicho que es la 1
comm1.PortOpen = False

End Sub

Gracias