Module Module1 public oParametersDataDictionaryField As New Collection() Sub Main() ParameterAddDataDictionaryField("One", 5) ParameterAddDataDictionaryField("Two", "Hello") ParameterAddDataDictionaryField("Alpha", DateTime.Now) ParameterAddDataDictionaryField("Zebra", "Hello") Dim result = oParametersDataDictionaryField.OfType(Of Object())().OrderByDescending(Function(x) x(0)) End Sub Private Function ParameterAddDataDictionaryField(tcField As String, toValue As Object) As Boolean oParametersDataDictionaryField.Add(New Object(4) {tcField, toValue, "", "", 0}) Return True End Function End Module