RE:Forma de Celda de Excel en VB
Bueno amigo aqui tienes unos pequeños ejemplos:
Dim xlApp As Excel.Application
Dim mySheet As Excel.Worksheet
Sub MandarExcel()
Dim Ruta As String
Set xlApp = CreateObject("Excel.Application")
Ruta = App.Path & "\Hoja.xls"
xlApp.Workbooks.Open Ruta
Set mySheet = xlApp.Worksheets(1) 'Activamos la Hoja 1
mySheet.Cells(1, 1) = "Miguel"
mySheet.Cells(1, 1).Font.Size = 9 'Definimos el Tamaño de letra
mySheet.Cells(1, 1).Font.Name = "Tahoma" 'Nombre Letra
mySheet.Cells(1, 1).Font.Bold = True 'Negrita
mySheet.Cells(1, 1).Font.Italic = True 'cursiva
mySheet.Cells(1, 1).Borders.LineStyle = xlContinuous 'Poner Border sencillo.
mySheet.Cells(1, 1).Interior.Color = vbYellow 'Color de Relleno
xlApp.Quit
Set xlApp = Nothing
End Sub
Estas son las constantes para poner otro tipo de borde:
XlLineStyle: xlContinuous, xlDash, xlDashDot, xlDashDotDot, xlDot, xlDouble, xlSlantDashDot o xlLineStyleNone.