Abrir Com RS232: Fayo en Settings al pasar variables

[fero]

Ejemplo 1 (de la ayuda de vb)

Private Sub Form_Load ()
' Búfer para almacenar la cadena de entrada
Dim Instring As String
' Usar 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 = "ATV1Q0" & Chr$(13) ' Asegúrese de que
' el módem responde con "OK".
' Esperar a que vuelvan los datos al puerto serie.
Do
DoEvents
Buffer$ = Buffer$ & MSComm1.Input
Loop Until InStr(Buffer$, "OK" & vbCRLF)
' Leer los datos de respuesta de aceptación en el
' puerto serie.
' Cerrar el puerto serie.
MSComm1.PortOpen = False
End Sub


Ejemplo 2:

Private Sub Form_Load ()
' Búfer para almacenar la cadena de entrada
Dim Instring As String
'variable para definir settings
Dim vsettings as string

vsettings= "9600,N,8,1"

' Usar COM1.
MSComm1.CommPort = 1
' 9600 baudios, sin paridad, 8 bits de datos y 1
' bit de parada.
MSComm1.Settings = vsettings
' 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 = "ATV1Q0" & Chr$(13) ' Asegúrese de que
' el módem responde con "OK".
' Esperar a que vuelvan los datos al puerto serie.
Do
DoEvents
Buffer$ = Buffer$ & MSComm1.Input
Loop Until InStr(Buffer$, "OK" & vbCRLF)
' Leer los datos de respuesta de aceptación en el
' puerto serie.
' Cerrar el puerto serie.
MSComm1.PortOpen = False
End Sub

Los dos ejemplos funcionan.

En tu código,
break point en
vsettings = vbitss & "," & vbitsd & "," & vparidad & "," & vbitsp
inspección
vsettings = "9600,N,8,1" o vsettings="" ?