Visual Basic - Guardar datos en excel

Como creo un archivo de excel desde VB y como hago para guardar datos de una aplicación en este.

Muchas Gracias y saludos

Private Sub Command1_Click()
Dim ApExcel As Variant
Set ApExcel = CreateObject("Excel.application")
' Hace que Excel se vea
ApExcel.Visible = True
'Agrega un nuevo Libro
ApExcel.Workbooks.Add
Set ApExcel = Nothing
End Sub

Muchas Gracias Marco pero tengo otras preguntas

Como le añado datos, sea numericos o cadena, como lo guardo, (el nombre y el path se lo asigno con un commdialog, pero como hago que este nombre lo tome el archivo creado en excel)

Saludos

Private Sub Command1_Click()
Dim ApExcel As Variant
Set ApExcel = CreateObject("Excel.application")
' Hace que Excel se vea
ApExcel.Visible = True
'Agrega un nuevo Libro
ApExcel.Workbooks.Add
'Poner Titulos
ApExcel.cells(1, 1).Formula = "Titulo de la Aplicacion"
ApExcel.cells(1, 1).Font.Size = 18
ApExcel.cells(2, 2).Formula = "Debe"
ApExcel.cells(2, 3).Formula = "Haber"
ApExcel.cells(2, 4).Formula = "Saldo"
ApExcel.cells(3, 2).Formula = 200
ApExcel.cells(3, 3).Formula = 100
' Aplica Formula
ApExcel.cells(3, 4).Formula = "=B3-C3"
Set ApExcel = Nothing
End Sub

prueba este ejemplo.

Muchas Gracias de nuevo y perdone la friega pero tengo todavía una duda

Es que el proyecto como tal me enlaza y me carga los datos en la hoja de texto, luego la muestra. Pero no la graba, toca hacerlo de forma manual. Como hago para que me los grabe automaticamente, con el path que yo quiera

sabes la verdad yo tambien lo he probado asi y no lo recomiendo mucho, ya que el excel me quedaba abierto fue un caos, lo mejor fue que el usuario lo grabe a su antojo.
Dim MyValue
MyValue = Shell("rundll32.exe url.dll,FileProtocolHandler " & "C:\prueba.xls", vbMaximizedFocus)
me parece que algo asi es no me recuerdo muy bien.

Gracias por la gran ayuda de todas formas seguire buscando por si encuentro otra forma

Aqui te va un ejemplo
======================================================
Set ohoja = CreateObject("Excel.Application")
oarchivo = "K:\resulta.xls" 'crea el archivo en carpeta de trabajo
'ohoja.workbooks.Application.
'ohoja.Workbooks.Open oarchivo
ohoja.Workbooks.Add
'ohoja.Worksheets.Add , , 2
ohoja.Worksheets(1).Name = "Planillas"
ohoja.cells(2, 2).Value = "PLANILLA DE SUELDOS DE TRABAJADORES"
ohoja.cells(4, 1).Value = "Codigo"
ohoja.cells(4, 2).Value = "Ape Pater"
ohoja.cells(4, 3).Value = "Ape Mater"
ohoja.cells(4, 4).Value = "Nombre"
ohoja.cells(4, 5).Value = "Sueldo"
.
.
.

fila = 5
Do Until Adodc1.Recordset.EOF
ohoja.cells(fila, 1).Value = Adodc1.Recordset.Fields(0).Value
ohoja.cells(fila, 2).Value = Adodc1.Recordset.Fields(1).Value
ohoja.cells(fila, 3).Value = Adodc1.Recordset.Fields(2).Value
ohoja.cells(fila, 4).Value = Adodc1.Recordset.Fields(3).Value
ohoja.cells(fila, 5).Value = Adodc1.Recordset.Fields(4).Value
.
.
.
.
fila = fila + 1
Adodc1.Recordset.MoveNext
Loop

'muertra excel
ohoja.Visible = True
ohoja.Worksheets(1).SaveAs "c:\Temp.xls" ', bindOverwriteExisting sobreesceribir
' Cierra el libro de trabajo
ohoja.Workbooks.Close
' Cierra Microsoft Excel con el método Quit.
ohoja.Quit
.
.
.

Muchas gracias a ambos funciono perfecto con mi aplicación