Private Function Createlog(ByVal mylist As List(Of classTest))
        Dim sw As New StreamWriter("log_list.log")
        For index = 1 To mylist.Count - 1
            sw.WriteLine(mylist(index).comments)
        Next
        sw.Close()
        Try
            Me.Invoke(UpdateLabel("Log sucessfully saved"))
        Catch ex As Exception

        End Try
        Return 1
    End Function

    Private Function UpdateLabel(ByVal text As String)
        Label1.Text = text
        Return 1
    End Function

Dim tasktest = Task(Of Integer).Factory.StartNew(Function() Createlog(theList))