Visual Basic - mscomm como poner un puerto concreto

No logro cambiar el puerto que deseo usar , solo me toma el 1 y yo los puertos que uso son altos como el 1038 o el 1042 , etc.

Cómo lo pongo ?

código:

Private Sub Command1_Click()
ok = False
End Sub

Private Sub Form_Load()
' Buffer to hold input string
Form1.Show

ok = True

Dim Instring As String
' Use COM1.
MSComm1.CommPort = 1

' 9600 baud, no parity, 8 data, and 1 stop bit.
MSComm1.Settings = "9600,N,8,1"
' Tell the control to read entire buffer when Input
' is used.
MSComm1.InputLen = 1024
' Open the port.
MSComm1.PortOpen = True
' Send the attention command to the modem.
MSComm1.Output = "ATV1Q0" & Chr$(13) ' Ensure that
' the modem responds with "OK".
' Wait for data to come back to the serial port.
Do
DoEvents
buffer$ = buffer$ & MSComm1.Input
List1.AddItem (buffer$)
Loop Until ok = False
' Read the "OK" response data in the serial port.
' Close the serial port.
MSComm1.PortOpen = False
End Sub

Solo te toma el puerto 1 porque es el que le estás especificando:

MSComm1.CommPort = 1

Para usar el # de puerto que tu quieres haz lo siguiente:

MSComm1.CommPort = NUMERO DE PUERTO QUE DESEAS

Saludos

La propiedad CommPort de un control mscomm determina el puerto serie que se va a abrir. Puede establecerse la propiedad CommPort a cualquier número entre 1 y 16 (el valor predeterminado es 1). Sin embargo, si estableces este valor a un puerto COM que no existe en el sistema en el que se ejecuta la aplicación, se producirá un error.
Sería empiricamente imposible que tengas en tu PC 1038 puertos COM

Supongo que debés estar buscando el Control Winsock con el cual te conectas a un equipo remoto por TCP o UDP.
Se establece el Puerto Local con la propiedad "LocalPort"
y el puerto remoto con "RemotePort"

Suerte.

Lo que quiero es escuchar todo lo que llegue a mi pc por un puerto específico, a mi elección, incluidos pueros altos. El pc está conectado a una red interna y de ahí voy a un servidor ( supongo) , lo que quiero es escuchar un puerto en el cual entran los msgs de la aplicación servidora.

Debés utilizar el control Winsock, con el cual podés ponerte a escuchar el puerto que vos quieras. Inclusive es posible hacer un casero sistema de mensajería instantánea con TCP o UDP.
Encontrarás muchísima información en el MSDN que viene junto con V6.