Run-time error

[Ricksan]

Hi all

I am geting this run-time error "13" when I hit the play button in VB6, I did not change anything in that sub.

debug points to Emoticons(i).Pic = GetVar(fileName, "EMOTICONS", "Emoticon" & i) in this sub.

```
Sub LoadEmos()
Dim fileName As String
Dim i As Long

    Call CheckEmos

    fileName = App.Path & "\emoticons.ini"

    For i = 0 To MAX_EMOTICONS
        temp = i / MAX_EMOTICONS * 100
        Call SetStatus("Loading emoticons... " & temp & "%")
        Emoticons(i).Pic = GetVar(fileName, "EMOTICONS", "Emoticon" & i)
        Emoticons(i).Command = GetVar(fileName, "EMOTICONS", "EmoticonC" & i)

        DoEvents
    Next i
End Sub

```
I got it working thankz all!