Thanks csynder,

I did something a little different. But I'll use your code next time since it less typing.

Public Structure DataElement
Public PKey As String
Public Data As String
Public Sub New(ByVal PKeyIn As String, ByVal DataIn As String)
PKey = PKeyIn
Data = DataIn
End Sub
End Structure

Public Class DataElementComparer
Implements IComparer

Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare
Return String.Compare(DirectCast(x, DataElement).PKey, DirectCast(y, DataElement).PKey)
End Function
End Class