Visual Basic - Excel y VB ¿Como?

hola necesito un favor de ustedes me han dicho que en el msflexgrid se puede agregar datos y se puede modificar y eso mi caso es este

estoy haciendo un programa que me saque un control de gestion de una empresa la cual lleva ahorita todo eso en excel y yo lo que quiero es traer ese formato de excel a visual basic por medio del msflexgrid(si saben algo mas sencillo).

otro caso es este trayendo ese formato de excel a vb yo pudiera hacer los mismo como si lo estubiera haciendo en excel es decir sacar las funciones que me daba en excel las cuales son suma y resta y el porcentaje.

yo lo que quiero en si es traer ese formato de excel a vb para hacer todo eso sin necesidad de enrollarme tanto haciendo codigo para que me saque porcentaje y todo lo demas, claro tengo que escribir y poder modificar lo que traiga en excel
-------------------------------------------------------------------------------
-------------------------------------------------------------------------------
mi codigo es este
-------------------------------------------------------------------------------
-------------------------------------------------------------------------------
en el frm_Lectura tengo este
-------------------------------------------------------------------------------
-------------------------------------------------------------------------------
Private Sub Form_Load()
Inicio
Caracteristicas
FormatearTabla
LlenadoDeTabla
End Sub
---------------------------------------------------------------
Private Sub Form_Unload(Cancel As Integer)
Finalizar
End Sub
---------------------------------------------------------------
Private Sub mnuSalir_Click()
ApliNudos.Quit
End
End Sub

-------------------------------------------------------------------------------
-------------------------------------------------------------------------------
y en el modulo que seria Lectura(Lectura.bas) tengo este
-------------------------------------------------------------------------------
Option Explicit

Public ApliNudos As Excel.Application
Public LibroNudos As Excel.Workbook
Public HojaNudos As Excel.Worksheet
Public RangoNudos As Excel.Range
Public CeldaVacia As Integer
Public Columnas As Integer
Public Filas As Integer
Public i As Integer, j As Integer
Public Sub Caracteristicas()
Set HojaNudos = LibroNudos.Sheets(1)
Set RangoNudos = HojaNudos.Rows(1)
If (RangoNudos.Cells(1, 1) = "") Then
CeldaVacia = 0
Else
CeldaVacia = RangoNudos.Find("").Column
End If
Columnas = CeldaVacia
Set RangoNudos = HojaNudos.Columns(1)
If (RangoNudos.Cells(1, 1) = "") Then
CeldaVacia = 0
Else
CeldaVacia = RangoNudos.Find("").Row
End If
Filas = CeldaVacia
Set HojaNudos = Nothing
Set RangoNudos = Nothing
End Sub

Public Sub Finalizar()
Set ApliNudos = Nothing
Set LibroNudos = Nothing
Set HojaNudos = Nothing
Set RangoNudos = Nothing
End Sub

Public Sub FormatearTabla()
With frmLectura.grdNudos
.Cols = Columnas
.Rows = Filas
.Visible = True
End With
End Sub

Public Sub Inicio()
Set ApliNudos = CreateObject("Excel.Application")
Set LibroNudos = ApliNudos.Workbooks.Open(App.Path & "\Nudos1.xls")
End Sub

Public Sub LlenadoDeTabla()
Set HojaNudos = LibroNudos.Worksheets(1)
For i = 1 To Columnas - 1
frmLectura.grdNudos.Col = i
For j = 1 To Filas - 1
frmLectura.grdNudos.Row = j
frmLectura.grdNudos.Text = HojaNudos.Cells(j, i)
Next j
Next i
End Sub

Sub Main()
frmLectura.Show
End Sub

Gracias por la respuesta, es que estaba volviendo loco y no lo entendia.
Como se nota cuando hay profesionales.

Gracias de nuevo.

yo no dije eso y aparte quiero una respuesta por favor a ver si me pueden ayudar
--------------------------------------------------------------------------------------------------------------
Gracias por la respuesta, es que estaba volviendo loco y no lo entendia.
Como se nota cuando hay profesionales.

Gracias de nuevo.