Compile error help:

[genusis]

well it said compile error: sub or function not defined.

Code:

Sub LoadElements()
Dim FileName As String
Dim i As Long
Dim f As Long

    Call CheckElement
    For i = 1 To MAX_ELEMENTS
        Call SetStatus("Loading elements... " & Int((i / MAX_ELEMENTS) * 100) & "%")
        FileName = App.Path & "\Elements\Element" & i & ".dat"
        f = FreeFile
        Open FileName For Binary As #f
        Get #f, , Element(i)
        Close #f
        DoEvents

    Next
End Sub

It highlighted this. Element(i)