Private Sub Button_Click(sender As Object, e As RoutedEventArgs)
 
        txtHallo.Text = GebeDieAnzahlZurueck
 
    End Sub
 
    Private Function GebeDieAnzahlZurueck() As Long
        Dim j As Long
        For i As Long = 0 To 10000000000
            j += 1
        Next
        Return j
    End Function

    Private Async Sub Button_Click(sender As Object, e As RoutedEventArgs)
 
        txtHallo.Text = Await GebeDieAnzahlZurueck
 
    End Sub