Visual Basic

Private Sub doSomething()

        Dim xlApp As Microsoft.Office.Interop.Excel.Application = New Microsoft.Office.Interop.Excel.Application()
        Dim xlWk As Microsoft.Office.Interop.Excel.Workbook = xlApp.Workbooks.Add()
        Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet = xlWk.Worksheets(1)
        xlApp.Visible = True

        xlSheet.Range("A1").Value = "Some Text Value on 1 line"

        xlSheet.Range("A5").Value = "Some text value on" + vbCrLf + "2 lines"

        xlSheet.Columns().AutoFit()
        xlSheet.Rows().AutoFit()

    End Sub

 Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim BG As New System.ComponentModel.BackgroundWorker
     'Every time you click button1, BG creates a new Instance of BackgroundWorker in separate thread
        'So it is not Necessary to check whether it is busy or not.
        BG.WorkerReportsProgress = True 'Enable reporting

        AddHandler BG.DoWork, AddressOf BackgroundWorker_DoWork '
        AddHandler BG.RunWorkerCompleted, AddressOf BackgroundWorker_RunWorkerCompleted
        AddHandler BG.ProgressChanged, AddressOf BackgroundWorker_ProgressChanged

        Static Cnt As Integer = 1 'Number of threads
        BG.RunWorkerAsync(Cnt)
        Cnt = Cnt + 1
    End Sub

    Private Sub BackgroundWorker_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
        Dim stp As New Stopwatch 'Only for test purpose
        stp.Start()
        Do 'this loop never ends
            If stp.ElapsedMilliseconds Mod 1000 = 0 Then
                CType(sender, System.ComponentModel.BackgroundWorker).ReportProgress(stp.ElapsedMilliseconds, e.Argument)
                Threading.Thread.Sleep(100)
            End If
            'Perform your huge task here. I did it an infinite Do Loop. No problem to do this. What is yours?
        Loop
    End Sub

    Private Sub BackgroundWorker_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs)
        TextBox1.AppendText(e.UserState.ToString & "->" & e.ProgressPercentage & ", ")
    End Sub

    Private Sub BackgroundWorker_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs)
        'Never used  to call BackgroundWorker.RunWorkerAsync. what is your problem?
        'I never intended to use this to call BackgroundWorker.RunWorkerAsync for second time.
    End Sub
End Class

Dim test As String = System.Text.Encoding.Unicode.GetString(binaryStream)
axDoc.Paragraphs(1).Range.Text = test.ToString

Dim conn = New SqlConnection(My.Settings.Maintenance_ManagementSQLConnectionString)
       Dim EQ As String = Me.Monsanto_Equip_NoTextBox.Text.ToString
       Dim AreaCMD As New SqlCommand()
       Dim wordDoc As Byte()
       AreaCMD.Connection = conn
       AreaCMD.CommandText = "SELECT LOTO FROM [tower]where [monsanto equip no] = '" & EQ & "'"
       conn.Open()
       wordDoc = AreaCMD.ExecuteScalar()
       File.WriteAllBytes("C:\Temp\WordDoc.docx", wordDoc)
       Dim appWord As New Word.Application
       Dim docWord As New Word.Document

       docWord = appWord.Documents.Open("C:\Temp\WordDoc.docx", , True, , , , , , , , , , True, , , )
       appWord.Visible = True