Scusami tanto ma.. che funzione è OpenFile(...)????
E' una funzione creata da te? Se sì, puoi postare il listato di questa funzione?
Io comunque non capisco perchè non usi la comune funzione:

Call Shell(CommonDialog1.FileName,vbNormalFocus)

Ad esempio..... Poi attento ad una cosa: se l'utente clicca su "annulla" del CommonDialog, ti viene generato un errore!!
Il CommonDialog1.FileName in tal caso è uguale a "" e la funzione Shell vuole un path valido.
Devi gestirlo:
All'inizio metti:

public sub AperturaFile()
on error goto GestioneErrori
CommonDialog1.Filter = "Tutti i file (*.*)|*.*"
CommonDialog1.FilterIndex = 0
CommonDialog1.ShowOpen
Call Shell(CommonDialog1.FileName,vbNormalFocus)
exit sub
GestioneErrori:
Call msgbox(err.Description, vbCritical + vbOKOnly ,"Errore" & _
apertura file")

end sub

Ricordati di mettere la proprietà CancelError del CommonDialog1 a true

Ciao, Fammi sapere.