Wish Allow accessing a ResumableSub return value without using Wait For

Public Sub LoadTable1() As ResumableSub
  Dim somemap1 as Map
  '...Call and wait on some REST function over the Internet which might take a while
  return somemap1
End Sub

Public Sub LoadTable2() As ResumableSub
  Dim somemap2 as Map
  '...Call and wait on some REST function over the Internet which might take a while
  return somemap2
End Sub

Public Sub LoadTable3() As ResumableSub
  Dim somemap3 as Map
  '...Call and wait on some REST function over the Internet which might take a while
  return somemap3
End Sub

Public Sub LoadTablesAndDoSomething
  Dim rs1 As ResumableSub = CallSub(Starter, "LoadTable1")
  Dim rs2 As ResumableSub = CallSub(Starter, "LoadTable2")
  Dim rs3 As ResumableSub = CallSub(Starter, "LoadTable3")
  If Not(rs1.Completed) Then
    Wait For(rs1) Complete
  End If
  If Not(rs2.Completed) Then
    Wait For(rs2) Complete
  End If
  If Not(rs3.Completed) Then
    Wait For(rs3) Complete
  End If
  Dim Table1Map as Map = rs1.Result '<<< Example of wished-for function "Result"
  Dim Table2Map as Map = rs2.Result '<<< Example of wished-for function "Result"
  Dim Table3Map as Map = rs3.Result '<<< Example of wished-for function "Result"
  '...Do something else
End Sub

        Dim rs1 As ResumableSub
        Dim rs2 As ResumableSub
        Dim rs3 As ResumableSub
        
        Table1Map = Starter.Table1Map 
        If Not(Table1Map.IsInitialized) Then
            rs1  = CallSub(Starter, "LoadTable1Map")
        End If

        Table2Map = Starter.Table2Map
        If Not(Table2Map.IsInitialized) Then
            rs2 = CallSub(Starter, "LoadTable2Map")
        End If
        
        Table3Map = Starter.Table3Map 
        If Not(Table3Map.IsInitialized) Then
            rs3 = CallSub(Starter, "LoadTable3Map")
        End If
        
        If rs1.IsInitialized Then
            If Not(rs1.Completed) Then
                Wait For(rs1) Complete
            End If
            Table1Map = Starter.Table1Map 
        End If
        
        If rs2.IsInitialized Then
            If Not(rs2.Completed) Then
                Wait For(rs2) Complete
            End If
            Table2Map = Starter.Table2Map 
        End If
        
        If rs3.IsInitialized Then
            If Not(rs3.Completed) Then
                Wait For(rs3) Complete
            End If
            Table3Map = Starter.Table3Map 
        End If

Sub Button1_Click
    Table1    'Call 3 ResumableSubs in sequence
    Table2
    Table3
End Sub

Sub Table1 As ResumableSub
    Sleep(5000)    '5 seconds of pause to simulate a Job
    CallSubDelayed2(Me, "ResultTable1", "I am the Result of Table1")    'Give the Result to Sub ResultTable1
End Sub

Sub Table2 As ResumableSub
    Sleep(3000)    '3 seconds of pause to simulate a Job
    CallSubDelayed2(Me, "ResultTable2", "I am the Result of Table2")    'Give the Result to Sub ResultTable2
End Sub

Sub Table3 As ResumableSub
    Sleep(1000)    '1 seconds of pause to simulate a Job
    CallSubDelayed2(Me, "ResultTable3", "I am the Result of Table3")    'Give the Result to Sub ResultTable3
End Sub

Sub ResultTable1 (result As String)
    Log(result)
    'Do something...
End Sub

Sub ResultTable2 (result As String)
    Log(result)
    'Do something...
End Sub

Sub ResultTable3 (result As String)
    Log(result)
    'Do something...
End Sub

Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
    Dim res As Map = CreateMap()
    Dim rss() As ResumableSub = Array As ResumableSub(S1(res), S2(res), S3(res))
    Wait For (WaitForSubs(rss)) Complete (unused As Boolean)
    Dim r1 As Int = res.Get("S1")
    Log(r1)
End Sub

Sub WaitForSubs (rss() As ResumableSub) As ResumableSub
    Dim completed As Boolean = False
    Do While completed = False
        completed = True
        For Each rs As ResumableSub In rss
            If rs.Completed = False Then completed = False
        Next
        Sleep(50)
    Loop
    Return True
End Sub

Sub S1 (Result As Map) As ResumableSub
    Sleep(Rnd(10, 5000))
    Result.Put("S1", 1) '1 is the result
    Return True
End Sub

Sub S2 (Result As Map) As ResumableSub
    Sleep(Rnd(10, 5000))
    Result.Put("S2", 2)
    Return True
End Sub

Sub S3 (Result As Map) As ResumableSub
    Sleep(Rnd(10, 5000))
    Result.Put("S3", 3)
    Return True
End Sub