Keeping the VB window closed

[mcescher]

Hi All,

I am trying to read some information from the modules in a database.
My function opens the module and then counts the procedures in it, then
it closes the module.

DoCmd.OpenModule strModule
Set mdf = Modules(strModule)
For intX = 1 To mdf.CountOfLines
If ((InStr(mdf.Lines(intX, 1), "Sub")) Or _
(InStr(mdf.Lines(intX, 1), "Function"))) And _
((InStr(mdf.Lines(intX, 1), "End")) = 0) Then
If Not blnShowDef Then
If blnShow Then Debug.Print Left(mdf.Lines(intX, 1),
InStr(mdf.Lines(intX, 1), "(") - 1)
Else
If blnShow Then Debug.Print mdf.Lines(intX, 1)
End If
intCount = intCount + 1
End If
Next intX
DoCmd.Close acModule, strModule, acSaveNo

Running this code from a form opens the Visual Basic window on top of
Access. Can I code it to not show the VB window?

Thanks,
Chris M.