Add features to a group

From a Journal found on this forum I was trying to select all extrude features in a part and put them in featuregroup.
I get the journal to create the group but the extrudes are not added to the group.

What am I doing wrong?

Thanks for your help!!

Option Strict Off
Imports System
Imports System.Collections
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.Features
Imports NXOpen.Utilities

Module Module1

Dim theSession As Session = Session.GetSession()
Dim lw As ListingWindow = theSession.ListingWindow
Dim ufs As UFSession = UFSession.GetUFSession()

Sub Main()

Dim toBeGrouped() As Features.Feature = getFeatures
Dim featTags(toBeGrouped.Length - 1) As Tag

For ii As Integer = 0 To toBeGrouped.Length - 1
featTags(ii) = toBeGrouped(ii).Tag

Next

Dim fGroup As Tag = Tag.Null
ufs.Modl.CreateSetOfFeature("TEST", featTags, toBeGrouped.Length, 1, fGroup)

End Sub

Function getFeatures

Dim gotFeature As ArrayList = New ArrayList
Dim feats As Features.FeatureCollection = theSession.Parts.Display.Features

For Each feat As Feature In feats
Try

if feat.FeatureType = "EXTRUDE" then
gotFeature.add(feat)
End if
Catch ex As Exception

End Try
Next

'do something with exception
return gotfeature.ToArray(GetType(Features.Feature))
End Function

Public Function GetUnloadOption(ByVal dummy As String) As Integer
Return CType(Session.LibraryUnloadOption.Immediately, Integer)
End Function
End Module