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