Module.vb

Sub Main()
    Dim t = Task.Factory.StartNew(
        Async Function()
            Dim msg = GetMessage()
            Await Tweet(msg)
        End Function).Unwrap

    Try
        t.Wait()

    Catch aEx As AggregateException
        For Each e In aEx.InnerExceptions
            Console.WriteLine(e.Message)
        Next
    Catch ex As Exception
        Console.WriteLine(ex.Message)
    End Try
End Sub