Que es lo que pretendes hacer?
Necesito saber específicamente lo q quieres hacer para ayudarte.
Cuando te sale el mensaje de pto. abierto es pq has uzado la propiedad commport. Debes establecer la propiedad CommPort antes de abrir el puerto
Puedes establecer el valor a cualquier número entre 1 y 16 (el valor predeterminado es 1) en tiempo de diseño. Sin embargo, el control MSComm genera el error 68 (El dispositivo no está disponible) si no existe el puerto cuando intenta abrirlo con la propiedad PortOpen.
Este sencillo ejemplo muestra cómo efectuar las comunicaciones básicas del puerto serie utilizando un módem:
Private Sub Form_Load ()
' Búfer para almacenar la cadena de entrada
Dim Instring As String
' Utiliza COM1.
MSComm1.CommPort = 1
' 9600 baudios, sin paridad, 8 bits de datos y 1 ' bit de parada.
MSComm1.Settings = "9600,N,8,1"
' Indicar al control que lea todo el búfer al usar ' Input.
MSComm1.InputLen = 0
' Abrir el puerto.
MSComm1.PortOpen = True
' Enviar al módem el comando de atención.
MSComm1.Output = "AT" + Chr$(13)
' Esperar a que vuelvan los datos al puerto serie.
Do
DoEvents
Loop Until MSComm1.InBufferCount >= 2
' Leer los datos de respuesta de aceptación en el
' puerto serie.
Instring = MSComm1.Input
' Cerrar el puerto serie.
MSComm1.PortOpen = False
End Sub