{currenthelptext} {product} {helptype} {viewcore}
Example - GetAttr Function
Sub Main
Const strFile As String = "D:\TESTFILE.txt"
Dim Result As Integer
Result = GetAttr(strFile)
MsgBox Result
End Sub