Routines().Type not working

I am trying to fill a listView control with the names of the Procedures, Functions and traps from a module. I am able to fill the listView with the names but when I try and parse what type of Routine it is all I get from the Type parameter is “Routine {7168}” it should parse to SymbolTypes below in the code. Is this a bug or am I doing it wrong?

Try
tasks = controller.Rapid.GetTasks()
Modules = tasks(0).GetModules()
TaskName = tasks(0).Name.ToString
Routines = Modules(0).GetRoutines()
Dim Number As Integer = Convert.ToInt32(Routines.GetUpperBound(0))

ListView3.Items.Clear()
Dim item As ListViewItem
For i As Integer = 0 To Number
item = New ListViewItem(Routines(i).Name.ToString)
If Routines(i).Type = SymbolTypes.Procedure Then
item.SubItems.Add(“PROC”)
ElseIf Routines(i).Type = SymbolTypes.Function Then
item.SubItems.Add(“FUNC”)
ElseIf Routines(i).Type = SymbolTypes.Trap Then
item.SubItems.Add(“TRAP”)
End If
ListView3.Items.Add(item)
Next
Catch ex As Exception
MessageBox.Show(ex.Message.ToString, Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Information)
End Try