Example:
Sub Main
Const strFile As String = "D:\TESTFILE.txt"
Dim Result As Integer
Result = GetAttr(strFile)
MsgBox Result
End Sub