Attribute VB_Name = "VtestUtils"
' Extra utilities for Vtests
Public Sub ShowTextFile(strFileName As String)
On Error GoTo HandleError
Dim hFile As Integer
Dim sLine As String
hFile = FreeFile
Open strFileName For Input As hFile
Do While Not EOF(hFile)
Line Input #hFile, sLine
Debug.Print sLine
Loop
Close #hFile
Exit Sub
HandleError:
MsgBox "Error :" & Err.Description, vbCritical, "Unable to print file..."
End Sub