Dim oExcel As Object
Dim oBook As Object
oExcel = CreateObject("Excel.Application")
        oBook = oExcel.Workbooks.Add()
oSheet = oBook.Worksheets(1)
With osheet.range("A1:B1")
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom

With Worksheets("Teams").Range("A1:B1")
  .HorizontalAlignment = xlCenter
End With

Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.IO
Imports System.Globalization
Imports System.Collections
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Threading
Imports System.Diagnostics
Imports System.Windows.Forms
Imports Excel = Microsoft.Office.Interop.Excel

   Private Sub btnStyle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStyle.Click
        Try
            Dim strFileName As String = "C:\FormatCellExample.xls"

            Dim xlApp As Excel.Application = New Excel.ApplicationClass()
            Dim xlWorkBook As Excel.Workbook = Nothing
            Dim xlWorkSheet As Excel.Worksheet = Nothing
            Dim xlRange As Excel.Range = Nothing
            Dim misValue As Object = System.Reflection.Missing.Value

            '' * to open existing file *

            'xlWorkBook = xlApp.Workbooks.Open(strFileName, misValue, misValue, misValue _
            '                                  , misValue, misValue, misValue, misValue _
            '                                 , misValue, misValue, misValue, misValue _
            '                                , misValue, misValue, misValue)

            '' * to add the new one *

            xlWorkBook = xlApp.Workbooks.Add() '(Excel.XlFileFormat.xlTemplate)
            xlWorkBook = xlApp.ActiveWorkbook
            xlWorkSheet = CType(xlWorkBook.Worksheets.Item(1), Excel.Worksheet)
            xlApp.ScreenUpdating = False
            xlApp.DisplayAlerts = False
            Try
                xlApp.ScreenUpdating = False
                '
                '    * create style *
                '
                Dim xlStyles As Excel.Styles = xlWorkBook.Styles
                Dim xlStyle As Excel.Style = Nothing
                Dim isstyleexists As Boolean = False
                '
                '    * check if this style exist *
                '
                For Each xlStyle In xlStyles
                    If xlStyle.Name = "MyNewStyle" Then
                        isstyleexists = True
                        Exit For
                    End If
                Next
                '
                '   * if this does not exist so add new one *
                '                ' get Range "A1"

                If (Not isstyleexists) Then
                    xlStyles.Add("MyNewStyle")
                    xlStyle = xlStyles.Item("MyNewStyle")
                    ' Important: save changes !
                    xlWorkBook.SaveAs(strFileName, Excel.XlFileFormat.xlWorkbookNormal, misValue, misValue, misValue, misValue, Excel.XlSaveAsAccessMode.xlExclusive, misValue, misValue, misValue, misValue, misValue)       '
                    With xlStyle
                        .HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter
                        .VerticalAlignment = Excel.XlVAlign.xlVAlignCenter
                        .Font.Size = 12
                        .Font.Bold = True
                        .Font.Italic = True
                        .Font.Name = "Times New Roman"
                        .Font.ColorIndex = 11
                        .Interior.Color = 16764057
                        .WrapText = True
                        'etc, etc
                    End With
                End If
                '       [ NOTE: you can change by this way as I show above the properties
                '        of any cells and diapazones also ]
                '
                '     * first way to write data to cell *
                '
                ' get Range "A1"
                xlRange = CType(xlWorkSheet.Cells.Range("A1"), Excel.Range)
                xlRange.Value2 = "Editing Excel within VB code, im new to this! help?"
                '
                '     * and at the end use this style for cell A1 *
                '
                xlRange.Style = "MyNewStyle"

                xlApp.ScreenUpdating = True
                '
                '           * save book *
                '
                xlWorkBook.SaveAs(strFileName, Excel.XlFileFormat.xlWorkbookNormal, misValue, misValue, misValue, misValue, Excel.XlSaveAsAccessMode.xlExclusive, misValue, misValue, misValue, misValue, misValue)       '
                '           * close book *
                '
                xlWorkBook.Close(True, misValue, misValue)
                '
                '           * quit Excel *
                '
                xlApp.Quit()
                '
                MessageBox.Show("Data exported to " & strFileName)

            Catch ex As System.Exception

                MessageBox.Show(ex.Message & "\n\n=======  WRITE TO EXCEL ERROR:  ======\n\n" & _
                            ex.StackTrace)

            Finally
                ' clean up memory
                releaseObject(xlRange)
                releaseObject(xlWorkSheet)
                releaseObject(xlWorkBook)
                releaseObject(xlApp)

            End Try
        Catch exl As System.Exception

            MessageBox.Show(exl.Message & _
                "\n\n=======   ERROR TO ACESS EXCEL:  ======\n\n" & _
                exl.StackTrace)

        End Try
    End Sub
    '
    '                     * clean up *
    '
    Private Sub releaseObject(ByVal obj As Object)
        Try

            System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
            obj = Nothing

        Catch ex As System.Exception
            obj = Nothing
            MessageBox.Show("Clean Up Memory Error\n" + ex.ToString())
        Finally
            If (Not obj Is Nothing) Then
                Dim pos As Integer = GC.GetGeneration(obj)
                GC.Collect(pos)

            Else
                GC.Collect()
                GC.WaitForPendingFinalizers()
            End If
        End Try

    End Sub

ws.Range(rng).VerticalAlignment = Excel.XlVAlign.xlVAlignCenter