Assuming you want to await the
taskList
and get the results, something like this should work:
Dim taskList As New List(Of Task(Of List(Of String)))()
For Each pair As KeyValuePair(Of String, String) In pairs
taskList.Add(Task.Run(Function() geXml.Execute()))
Next
Dim results As IList(Of IList(Of String)) = Await Task.WhenAll(taskList)