Como programar Quickfield Usando VBA Excel?

Lo que pasa es que quiero hacer una aplicación en VS y los datos los quiero sacar del Excel y con ayuda de formularios hacer un pequeño programa que abra Quickfield y resuelva el problema y los compare con cálculos a mano por Excel.

Este es mi código aunque esta incompleto por que no logro mostrar las formas en Quickfield

Sub AbreQf()
Dim QF As QuickField.Application
Set QF = CreateObject("QuickField.Application")
QF.MainWindow.Visible = True
Const PI As Double = 3.1415926
Dim prbNew As QuickField.Problem
Set prbNew = QF.Problems.Add
With prbNew
.ProblemType = qfHeatTransfer
.ReferencedFile(qfModelFile) = "Modelo_Numerico.mod"
.ReferencedFile(qfDataFile) = "Datos_Del_Modelo.dht"
.Class = qfPlaneParallel
.Coordinates = qfCartesian
.LengthUnits = qfMillimeters
End With
prbNew.SaveAs "Nueva_Simulacion.pbm "
QF.MainWindow.Visible = True
prbNew.DataDoc.Windows(1).Visible = True

With mdl.Shapes
.AddEdge QF.PointXY(0, 5), QF.PointXY(0, -5), PI
.AddEdge QF.PointXY(0, -5), QF.PointXY(0, 5), PI
.AddEdge QF.PointXY(0, 10), QF.PointXY(0, -10), PI
.AddEdge QF.PointXY(0, -10), QF.PointXY(0, 10), PI
Dim AB As QuickField.ShapeRange
Set AB = .AddEdge(QF.PointXY(-6, 0), QF.PointXY(6, 0))
AB.Label = "Conduc"
Dim CD As QuickField.ShapeRange
Set CD = .AddEdge(QF.PointXY(-11, 0), QF.PointXY(11, 0))
CD.Label = "Ais"

End With
Windows(1).Close
Windows("Modelo_Numerico.mod").WindowState = qfMinimized

End Sub