Imports System

Public Module Module1

    Private Function GetLastBuildUri(workItem As WorkItemCheckinInfo) As Uri

        Dim latestChangeSet As Changeset = GetLatestChangeSet(workItem)

        If latestChangeSet Is Nothing Then

            Return Nothing

        End If

​

        Return GetBuildsWithChangeSet().Where(Function(x) x.Value.Contains(latestChangeSet.ChangesetId.ToString())).

                                        Select(Function(x) x.Key.Uri).FirstOrDefault()

    End Function

End Module