Here is the code i use to place a layer on the last spot
Dim index As Integer
index = Me.myMAP.Layers.Count
If index = 0 Then
Me.myMAP.Layers.Add(layer)
Else
Me.myMAP.Layers.Insert(0, layer)
End If
I hope it helps you a bit :)