لو سمحتم ما هو الخطاء في الكود وبلاخص عند كلمة Trim

اخواني الاعزاء

شاكرا لكم على ما تقدموه لنا

لكن

عدة مرات اقوم بوضع سؤال في ما يخص عبارة Trim

لكن لم اجد من يعطيني الرد الشافي

ففي احد المرات كان سؤال هو

/index.ph...524&hl=Trim

لكن لم اعرف سبب المشكلة في الكود

وهذا المرة تعود نفس المشكلة لي

عند عمل تشغيل للبرنامج يعطيني مشكلة في الكود التالي

Private Sub Form_Load()
	If App.PrevInstance = True Then
		MessageBox Me.hwnd, "Ya existe una ejecución de la aplicación", "Mensaje", 0 + 64 + 0
		End
	End If
	'----------------------------------------------------------------------'
	Set voObjRegistry = New ClsRegistry
	strSource = Trim(voObjRegistry.ReadSettings(C_APPNAME, "Conexion", "BaseDato"))
	'----------------------------------------------------------------------'
	If (strSource <> "" And Not DirExists(strSource)) Then
		FRMUBIDATABASE.Show vbModal
		strConexion = MetCadenaConexion
		Exit Sub
	End If
	'----------------------------------------------------------------------'
	If (strSource <> "" And DirExists(strSource)) Then
		strConexion = MetCadenaConexion
		Exit Sub
	End If
	'----------------------------------------------------------------------'
	If (strSource = "" And DirExists(App.Path + "\SISCAB.mdb")) Then
			Grabar_Data
			strConexion = MetCadenaConexion
			Exit Sub
	End If
	'----------------------------------------------------------------------'
	If (strSource = "" And Not DirExists(App.Path + "\SISCAB.mdb")) Then
			FRMUBIDATABASE.Show vbModal
			strConexion = MetCadenaConexion
			Exit Sub
	End If

	strSource = ""
End Sub

بضبط عند العبارة Trim

واذا اردت تحويل البرنامج الى exe ملف تنفيذي

يعطيني هذا المشكلة

Private Sub CmdAceptar_Click()
	If Not Validar Then Exit Sub
	MousePointer = vbHourglass
	FilesCopy Trim(Me.TXTORIGEN), Trim(Me.TXTDESTINO) & "\SISCAB.mdb"
	FgMsgBox "El proceso se realizo satisfactoriamente"
	MousePointer = vbDefault
End Sub

ويكون بضبط مثل السابق عند Trim

ارجو تفسير الفكرة

وكأن كلمة Trim

هي العقدة التي دائما توجهني

شاكرا لكم قراءة الموضوع