General Scripting - Advice on how to automate something

Sub Main()
        ' testgetfile() ' get file on server
        Dim exApp As New Excel.Application
        Dim sheet As Excel.Worksheet
        Dim c As Integer
        Dim r As Integer
        Dim conn As System.Data.Odbc.OdbcConnection
        Dim dt As New DataTable
        Dim da As System.Data.Odbc.OdbcDataAdapter
        Dim dr As DataRow
        Dim importFolder As String
        Dim fileName As String
        conn = New Odbc.OdbcConnection

        importFolder = "C:\contracts"
        fileName = "contract.txt"
        conn.ConnectionString = _
         "Driver={Microsoft Text Driver (*.txt; *.csv)};" + _
         "Dbq=C:\contracts\;" + _
        "Extensions=asc,csv,tab,txt;"


        da = New System.Data.Odbc.OdbcDataAdapter("select * from [" + fileName + "]", conn)
        da.Fill(dt)
        Dim wb As Excel.Workbook
        Dim i As Integer
        i = 0
        wb = exApp.Workbooks.Add
        'write header     
        exApp.Visible = True
        wb.Activate()
        sheet = wb.Worksheets.Add
        sheet.Name = "Contracts"
        sheet.Cells(1, 1) = "district"
        sheet.Cells(1, 2) = "first"
        sheet.Cells(1, 3) = "last"
        sheet.Cells(1, 4) = "fte"
        sheet.Cells(1, 5) = "bu"
        sheet.Cells(1, 6) = "title"
        sheet.Cells(1, 7) = "days/yr"
        sheet.Cells(1, 8) = "salsched"
        sheet.Cells(1, 9) = "currange"
        sheet.Cells(1, 10) = "step"
        sheet.Cells(1, 11) = "startdate"
        sheet.Cells(1, 12) = "%pos"
        sheet.Cells(1, 13) = "PerDiem"
        r = 2
        c = 1

        For Each dr In dt.Rows
            For c = 1 To 13
                sheet.Cells(r, c) = dr(i).ToString


                i += 1
            Next
            i = 0
            r += 1

        Next
        wb.SaveAs("conxls.xls")
    End Sub

        exApp.Visible = True

        exApp.Visible = False