Error 5 "Invalid Procedure Call"

[ecerpa]

Estimados amigos de Foros del Web...los vuelvo a molestar con otro problema que se me ha presentado...

Tengo una aplicación desarrollada con VB 6.0 y MySQL, esta funciona a la perfeccion en varios computadores, excepto en uno... Me reporta el error 5 "Invalid procedure call". He buscado miles de formas de solucionarlo pero no encuentro nada que lo resuelva... Ojalá que ustedes me puedan orientar

El codigo es el siguiente:

Private Sub IngresarTrabajadorDOC()

Dim n As Integer
Dim directorio As String
Dim archivoTxt As String

Dim RutTrabajador As String
Dim NombreTrabajador As String
Dim ApellidoPTrabajador As String
Dim ApellidoMTrabajador As String
Dim SexoTrabajador As String
Dim FechaInTrabajador As String
Dim SituacionTrabajador As String
Dim CalleTrabajador As String
Dim ComunaTrabajador As String
Dim PoblacionTrabajador As String
Dim EstadoTrabajador As String
Dim i As Integer

i = 0

RutTrabajador = TxtRut.text & "-" & Format(TxtDigito.text, "0")
ApellidoPTrabajador = TxtApellidoPaterno.text
ApellidoMTrabajador = TxtApellidoMaterno.text
NombreTrabajador = TxtNombre.text
CalleTrabajador = txtDireccion.text


directorio = rutaIN

If Dir(directorio, vbDirectory) = "" Then MkDir directorio

n = FreeFile


archivoTxt = rutaIN & "\" & fileIn

Close

Open archivoTxt For Append As #n



'escribir archivo
Print #n, Mid(cmbSucursal.Value, 3, 2) & Space(10 - Len(RutTrabajador)) & RutTrabajador & ApellidoPTrabajador & Space(13 - Len(TxtApellidoPaterno.text)) & ApellidoMTrabajador & Space(13 - Len(TxtApellidoMaterno.text)) & NombreTrabajador & Space(14 - Len(TxtNombre.text)) & Mid(CmbSexo.Value, 1, 1) & Format(DTPFechaIn.Value, "YYYYMMDD") & "N" & CalleTrabajador & Space(40 - Len(txtDireccion.text)) & CmbCiudad.Value & Space(30 - Len(CmbCiudad.Value)) & TxtPoblacion.text & Space(30 - Len(TxtPoblacion.text)) & TxtEstado.text & Space(30 - Len(TxtEstado.text)) & TxtPais.text

Close #n

End Sub

Puse unos msgbox para saber en que area se presentaba el problema....es justamente en el sector que está con color rojo.

He revisado que todas las variables tengan contenido y que todos los valores estén validados...tambien que la ruta contenida en la variable archivoTxt sea valida.

Ojalá que me puedan orientar con esto

Atentamente.-

ecerpa

[Insomnia]

Hola

Si funciona en todos los ordenadores menos en uno, no creo que sea tema de código, tiene alguna diferencia ese ordenador con el resto?, por ejemplo sistema operativo o que tenga o no instalado el office (word)

--Saludos--

[ecerpa]

Lo mismo pense en un principio, sinembargo hay procedimientos similares en mi código que no me arrojan dicho error, estoy seguro que en algun punto hay algun error pero no lo logro detectar... En terminos menos tecnicos, ¿a que hace referencia ese error? (Error 5: "Invalid Procedure Call)...

Gracias por la preocupacion

atentamente

ecerpa