Hay varias formas, como leer celda por celda(que no te la recomiendo y otras mas), yo te recomiendo que uses esta forma:
Dim objDatosExcel As New DataSet
Dim objOleConnection As New System.Data.OleDb.OleDbConnection( _
"provider=Microsoft.Jet.OLEDB.4.0; " & _
"data source=" & txtRutaDatos.Text.Trim & "; Extended Properties='Excel 8.0;HDR=No;IMEX=1'")
Dim objDataAdapter As New System.Data.OleDb.OleDbDataAdapter( _
"select [F2], [F3] from [Hoja1$] ", objOleConnection)
Try
objDataAdapter.Fill(objDatosExcel)
objOleConnection.Close()
Catch ex As Exception
MessageBox.Show("No se pudo cargar los datos de la Hoja Excel", "Manejo de Errores", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Exit Function
End Try
espero te sirva,