Recepción de programación del módulo

Lo cambiaré más o menos así:

Función privada Com_return(String As String)As String

MSComm1. salida = str & ampCanadian$(13)

Hacer

Múltiples actividades

Buffer$ = Buffer$ & ampMSComm1. Entrada

Bucle hasta que InStr(Buffer$, vbCr)' lea los datos hasta la respuesta de retorno de carro.

' Com_return = Buffer$ 'Devuelve datos.

Finalizar función

Luego llama a esta función y devuelve el valor.