C# と VB.NET の質問掲示板

102521に関連しての追加質問で恐縮です。

上が従来ので、下が教えていただいたのを参考にし作ったものです。
どちらも正常に働き結果も同じなのですが、何故か下にした場合には所要時間がとてつもなく掛かってしまうのです。
サンプルではシンプルに作ってますが、実際のは結構複雑な計算もしていて、またその結果データの書き込みもしてもいます。
何故これほどの時間差が出るのか、ご教授のほどお願い致します。

＜従来型＞
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Using sr As New System.IO.StreamReader("C:\Users\***\***.csv", System.Text.Encoding.GetEncoding("Shift_JIS"))
            Dim dats As Integer = 0   '処理済み数
            ProgressBar1.Minimum = 0 : ProgressBar1.Maximum = 2000 : ProgressBar1.Value = 0
            Label1.Text = "0"
            Do While Not sr.EndOfStream
                Dim dt As String = sr.ReadLine     '1行全てを読み取る

                System.Threading.Thread.Sleep(100)   'ここに全ての計算や結果データの書き込みもあります。

                '処理済み数（ProgressBar1値の更新）
                dats = dats + 1  
                ProgressBar1.Value = dats
                Me.Refresh()
                Label1.Text = dats.ToString()

                If dats = 2000 Then　　　'一応ここで脱出
                    Exit Do
                End If
            Loop
            sr.Close()
        End Using
    End Sub

＜改良型＞
    Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Using sr As New System.IO.StreamReader("C:\Users\***\***.csv", System.Text.Encoding.GetEncoding("Shift_JIS"))
            Dim dats As Integer = 0   '処理済み数
            ProgressBar1.Minimum = 0 : ProgressBar1.Maximum = 2000 : ProgressBar1.Value = 0
            Label1.Text = "0"
            Do While Not sr.EndOfStream
                Dim dt As String = sr.ReadLine     '1行全てを読み取る

                Await Task.Run(
            Sub()
                System.Threading.Thread.Sleep(100)   'ここに全ての計算や結果データの書き込みもあります。

            End Sub)
                '処理済み数（ProgressBar1値の更新）
                dats = dats + 1 
                ProgressBar1.Value = dats
                Label1.Text = dats.ToString()

                If dats = 2000 Then　　　'一応ここで脱出
                    Exit Do
                End If
            Loop
            sr.Close()
        End Using
    End Sub