Imports System
Imports System.Linq
Imports System.Collections.Generic
Public Class Program
Public Shared Sub Main()
Dim list = New List(Of Object) From {
3.14,
-5.31,
"vb",
8.18,
"c",
-99.17,
10,
"c++",
-5,
-0.19
}
Dim result As List(Of Double) = list.OfType(Of Double)().Where(Function(d) d < 0).ToList()
Console.WriteLine(String.Join(", ", result))
End Sub
End Class
' run:
'
' -5.31, -99.17, -0.19
'