Code:
Friend Sub Read_Script_Template()
    Dim Handle As Integer
    
    If Len(Dir$(mvarSCRIPT_TEMPLATE_NAME)) = 0 Then
        Err.Raise 53  ' File not found
    End If
    
    ' open in binary mode
    Handle = FreeFile
    Open mvarSCRIPT_TEMPLATE_NAME$ For Binary As #Handle
    ' read the string and close the file
    SCRIPT_TEMPLATE = Space$(LOF(Handle))
    Get #Handle, , SCRIPT_TEMPLATE
    Close #Handle
    
    MsgBox SCRIPT_TEMPLATE

End Sub