Problem med LBound i VB6

Jeg får flg. fejl:
Expected array


Public Function UserTreeAdd(strName As String)
  Dim MainNode As String

  MainNode = Split(strName, \"@\")
  For x = LBound(MainNode) To UBound(MainNode) - 1
  \' koden her
  Next x
End Function


Det er total wired, for jeg lavede denne del i en \"frisk\" vb, og fik det til at virke upåklageligt, men så flytter jeg det over i mit rigtige projekt, og nu fejler den bare.

Før havde jeg heller ikke behøvet at definere de forskellige værdier som integer og string, men det skulle jeg (ellers lavede den flere fejl) da jeg flyttede den over i mit projekt.