CommonDialog en VB6 (SP6)

[juanfosaiz]

Hola de nuevo compañeros gracias anticipadas por la ayuda, me estoy volviendo loco con un CommonDialog, lo tengo activado en complementos y lo tengo programado, pero al dar al botón designado para que salga la pantalla de selección de fichero (en tiempo de ejecución) me da error 91. Por favor ayudadme. El código es éste:

Private Sub ImpCarta_Click()
Dim Rec_Certific As Recordset, Rec_RenovadoPESOL As Recordset
Dim msg As String
Dim VentSelecFichero As CommonDialog

' VentSelecFichero.CancelError = True
On Error GoTo ImpCarta_ERROR

certificado_id = NumCertificado.Caption

VentSelecFichero.InitDir = "C:\"
VentSelecFichero.Flags = cdlOFNHideReadOnly
VentSelecFichero.Filter = "*.TXT"
VentSelecFichero.FileName = "*.TXT"
VentSelecFichero.CancelError = True
VentSelecFichero.ShowOpen

Muchas gracias de nuevo y saludos cordiales.