Problem with returning a Type

[LaVolpe]

I think this is the ticket... Changes highlighted in blue

Public Function createAlien(ByRef loc As m3Location, ByRef obj As Object)
    Dim i As Integer
    Dim a As m3Alien
    For i = 1 To getCurLevel.noAliens
        a.SysInit(30, 45)
        getCurLevel.AA(i) = a
        MsgBox getCurLevel.AA(i).Body.nVerts
        sendShips locs(getRandomInt), getCurLevel.AA(i), obj
        'checkWhereAlien obj
    Next i
    setCurLevel lvls(getCurLevel.Num)
End Function