Eine asnychrone Funktion innerhalb einer synchronen aufrufen

Private sub SynchroneProzedur
   ' ...
   ' Asynchrone Funktion innerhalb:
   Dim t As Task = Task.Run(Async Function()

      ' ...
   End Function)
   t.Wait()
   .Dispose()