[VB.NET]Async/Await入れ子のタスクの待ち方がわからない

Question

以下のような、非同期処理を実装する上で
呼び出し元が待ってくれるようにするにはどのように記述すれば良いでしょうか？
宜しくお願い致します。

ソースコード

Private Async Sub button1_Click(object sender, EventArgs e)
	'SampleAsyncを呼び出す
	?

	Console.WriteLine("SampleAsync処理完了")
End Sub

Private Async Function SampleAsync() AS Task
	'SampleAsync_Heavy()を呼び出す
	?

	Console.WriteLine("SampleAsync_Heavy処理完了")
End Function

Private Async Function SampleAsync_Heavy() AS Task
	Await Task.Run(
		Sub()
			'重たい処理
			Console.WriteLine("重たい処理完了")
		End Sub
	)
End Function

求める結果

重たい処理完了
SampleAsync_Heavy処理完了
SampleAsync処理完了

補足

FWバージョン
.NetFramework4.6.2

Answer 1

最初の ? のところを Await SampleAsync() に、次の ? のところを Await SampleAsync_Heavy() にしたらどうなりますか？

【追伸】

検証してみました。上に書いたようにして望む結果が得られるはずです。

コード

結果

コンソールに出力するなら、上の画像の赤枠で囲ったように設定してください。

Comments

[obon_ne]

ご回答いただいた通りに記述をしたらうまくいきました！
ありがとうございました！