Vc pode fazer uma conexão com uma planilha do Excel como se fosse um mdb normal, a string de conexão para isso vc encontra em:

 

como vc chega até a célula(por ex na B4) pelo seu cód?

 

o codigo tah meio bagunçado....mas eu nunm sou la essas coisas em vb naum...

e soh agora consegui colocar o post

 

Private Sub Form_Load()
    Dim xl As New Excel.Application
    Dim xlw As Excel.Workbook

    'Abrir o arquivo do Excel
    Set xlw = xl.Workbooks.Open("c: este.xls")

    ' definir qual a planilha de trabalho
    xlw.Sheets("Plan1").Select

    'Exibe o conteúdo da célula na posição 2,3

   ' variavel = xlw.Application.Cells(2, 3).Value
   If xlw.Application.Cells(1, 1).Value = "" Then
   MsgBox "Celula vazia", , "Excel"
   Text1.Text = ""
   Else
    MsgBox "Bolo: xlw.Application.Cells(1, 1).Value" & "Qtdde:"
    Text1.Text = xlw.Application.Cells(1, 1).Value
    End If

    ' Fechar a planilha sem salvar alterações
    ' Para salvar mude False para True

    ' Liberamos a memória
    xlw.Close True
    Set xlw = Nothing
    Set xl = Nothing
End Sub
Private Sub Command1_Click()
    Dim xl As New Excel.Application
    Dim xlw As Excel.Workbook

    'Abrir o arquivo do Excel
    Set xlw = xl.Workbooks.Open("c: este.xls")
    xlw.Sheets("Plan1").Select
    xlw.Application.Cells(1, 1).Value = Text1.Text

    xlw.Close True
    Set xlw = Nothing
    Set xl = Nothing
End Sub

Private Sub Command1_Click()
Dim i As Long
Dim n As Long
On Error Resume Next
Set objExcel = GetObject(, "Excel.Application")
If Err.Number Then
   Err.Clear
   Set objExcel = CreateObject("Excel.Application")
   If Err.Number Then
      MsgBox "Can't open Excel."
   End If
End If
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Add

 

       objWorkbook.ActiveSheet.Cells(m, n).Value = text1.text

 

 

se vc, em outro local do programa atribuir valores para m e n vc alterará qualquer célula.

sobre a formatação, também não descobri ainda como fazer....

espero ter ajudado

fui...