Visual Basic - trabajar con excel desde visual basic

Hola:
m gustaria saber como puedo recoger columnas de excel desde visual basic, ya q la puedo abrir y cerrar y crearme una pagina nueva ahora me gustaria poder coger los dato que quiero, el codigo q tengo es el siguiente:
Option Explicit
Public mobjExcel As Excel.Application
Public mobjExcelLibro As Excel.Workbook
Public mobjExcelHoja As Excel.Worksheet
Public Nueva As Excel.Worksheet

Sub CrearNueva()
Set Nueva = mobjExcelLibro.Sheets.Add(, mobjExcelLibro.Sheets(1))
Nueva.Name = "TEST"

End Sub

Public Sub cmdOpenExcel_Click()
Set mobjExcel = New Excel.Application
Set mobjExcelLibro = mobjExcel.Workbooks.Open("C:\PETT\ficheros\muestra_origen_fijo_corpor.xls")
Set mobjExcelHoja = mobjExcelLibro.Sheets(1)

mobjExcel.Visible = True
mobjExcel.DisplayAlerts = True

'MsgBox mobjExcelHoja.Cells(1, 1)
CrearNueva

mobjExcelHoja.Activate
mobjExcelLibro.Save

End Sub
Public Sub cmdCloseExcel_Click()
mobjExcel.Quit

Set Nueva = Nothing
Set mobjExcelHoja = Nothing
Set mobjExcelLibro = Nothing
Set mobjExcel = Nothing

End

End Sub

Espero q m podais ayudar.
Muxas gracias por adelantado.
Saludos.

Una vez que abres el archivo de excel que contenga la informacion que necesites la puedes recoger con la instruccion:
Dim Variable As String
Variable = mobjExcelHoja.Cells(1, 1)
Donde (Renglon,Columna), solamente debes de Cerciorarte de que columna y renglon deseas recoger tus datos , te pongo este ejemplo donde lleno un ListBox de una hoja de excel:
Dim xlApp As Excel.Application
Dim mySheet As Excel.Worksheet
Sub LlenaLista()
On Error GoTo Errores
Dim vlRuta As String
Dim I As Integer
Set xlApp = CreateObject("Excel.Application")
vlRuta = App.Path & "\cpsp.xls"
xlApp.Workbooks.Open vlRuta
Set mySheet = xlApp.ActiveSheet
'Suponiendo que los datos los tienes a partir de la columna A1y del Renglon 14
With mySheet
I = 14 'Renglon donde quiero obtener los datos
Do While .Cells(I, 1) <> ""
List1.AddItem Right("000" + CStr(.Cells(I, 1)), 3) + " " + .Cells(I, 2)
Loop
End With
xlApp.DisplayAlerts = False 'permite sobreescribir sin preguntar
xlApp.ActiveWorkbook.Save

MsgBox "Proceso Terminado", vbInformation
xlApp.Quit
Set xlApp = Nothing
Errores:
If Err.Number <> 0 Then
xlApp.Quit
Set xlApp = Nothing
MsgBox Err.Description, vbCritical, CStr(Err.Number)
Err.Clear
End If
End Sub
Espero y te sirva saludos!!!

muxas gracias por tu ayuda,si q m ha servido y muxo!!estaba muy perdida con el tema,pero esto m ha ayudado!
el problema es q m han pedido algo mas,hay forma de hacer q los datos que he cogido de excel los pueda pasar a access desde visual??
ya q todos los meses va a aparecer una hoja de excel, y qieren pasarla a access directamente desde la aplicacion!!!
Si es q m vuelven loca!!jajaja!!
Muxas gracias por todo Miguel!!
Saludos