Visual Basic - Almacenar datos

consulta de basic dentro de EXCEL.... me estoy armando un programita para esciribr datos y que me los guarde en el excel!

lo que hice hasta ahora es armarme toda la arquitectura fisica (es decir, los campos, los botones y bla bla bla)...

mi pregunta es como hago para cuando aprieto el boton INGRESAR (que lo cree yo).. me guarde todo lo que escribí en cada campo del programa en disitntos campos de una tabla en excel...

por ejemplo, tengo un textbox donde escribi de que banco es
otro de Observaciones donde se escribe el nombre
otro de numero de expediente donde va el numero de expediente
etc, etc

... y lo que quiero es que cuando apriete "ingresar" cada uno de los datos escritos en los textbox me los escriba automaticamente en distintas columnas (llamadas Banco, observacion, numero de expediente, etc etc) UBICADAS EN EL EXCEL....

idem no solo con eso sino con unos Option button que segun la que elija que el nombre del costado me lo pase a otrac olumna dentro del excel...

muchas gracias y espero que alguien me ayudeeeee

Nico, como va...

aca te tiro algo, que estuve usando para crear un excel:

para tu ejemplo seria asi:
Private Sub btnIngresar_Click()
On Error GoTo fallo
Dim xlApp As Excel.Application
Dim xlWB As Excel.Workbook
Dim xlWS As Excel.Worksheet
Dim Fil As Long
Dim Col As Long
Set xlApp = New Excel.Application
Set xlWB = xlApp.Workbooks.Add
Set xlWS = xlWB.Worksheets.Add
xlWS.Cells(1, 1).Value = "Banco"
xlWS.Cells(1, 2).Value = "Observaciones"
xlWS.Cells(1, 3).Value = "Nro. Expediente"
xlWS.Cells(2,1).Value = txtBanco.Text
xlWS.Cells(2, 2).Value = txtObs.Text
xlWS.Cells(2, 3).Value = txtNroExp.Text
- es decir, asignas directamente de los TextBox a las celdas y las tratas como pared ordenados (x,y).
' etse es el lugar donde se crea el nuevo archivo de excel
xlWS.SaveAs "C:\ArchivoExcel.xls"
xlApp.Quit
Set xlWS = Nothing
Set xlWB = Nothing
Set xlApp = Nothing
MsgBox ("Archivo creado en C:\"), vbInformation
Exit Sub
' en caso de algun error tira este mensaje
fallo:
MsgBox ("No se creo el archivo"), vbInformation
End Sub

'''''''''''''''''''
'esto lo podes utilizar para cargar datos desde un flexgrid:

CantReg = CantReg + 1
For Fil = 2 To CantReg
For Col = 1 To 6
On Error Resume Next
xlWS.Cells(Fil, Col) = Grilla.TextMatrix(Fil - 1, Col - 1)
Next Col
Next Fil

''''''''''''''''''
'para hacer uso de formatos de Excel tenes que agregar la Referencia: "Microsoft Excel 10.0 Object Library"...... 10.0 o inferiror, segun la version que tengas del Office, puede ser 8.0 tambien.

espero que sirva, saludos.

Dim xlApp As Excel.Application
Dim xlWB As Excel.Workbook
Dim xlWS As Excel.Worksheet


Set xlApp = New Excel.Application
Set xlWB = xlApp.Workbooks.Add
Set xlWS = xlWB.Worksheets.Add

'Envia Encabezados
xlWS.Cells(2, 7).Value = ListaArchivosC

xlWS.Cells(3, 3).Value = xxLar1
xlWS.Cells(4, 3).Value = xxLar2
xlWS.Cells(5, 3).Value = xxLar3

xlWS.Cells(3, 16).Value = xxTempM
xlWS.Cells(4, 16).Value = xxLar4
xlWS.Cells(5, 16).Value = xxLar5
xlWS.Cells(6, 16).Value = TCEA
xlWS.Cells(7, 16).Value = TCDA....etc


xlWS.SaveAs Ruta
xlApp.Quit
Set xlWS = Nothing
Set xlWB = Nothing
Set xlApp = Nothing

y Listo : )