Vb6 我是否正确实施了单二极管模型？

我需要确认是否已将以下等式（下图）正确转换为编程代码格式（Visual Basic 6）。 这是一个光伏太阳能电池1二极管模型的方程式

（变量I应该是单元格输出Icell？）

单二极管模型方程：

VB代码等式：（仅显示等式和示例变量）

---

VB方程的输入是从我的电路模拟中复制的。

我会把M*Vt放在参数中。更具可读性，如果操作顺序不符合预期，这就避免了一个bug。更具可读性，如果操作顺序不符合预期，则可以避免出现错误。

Icell = Ipv - Isat * (Exp((Vcell + I * Rs) / M * Vt) - 1) - ((Vcell + I * Rs) / Rp)

I = Icell ' ?

Vcell = 0.35       cell terminal voltage
Ipv   = 8.78       photon generated current
Isat  = 2.73e-10   Diode reverse saturation(scale current)
Rs    = 0.055      Series Resistance
Rp    = 100,000    Parallel Resistance
Tc    = 25.0       Device temperature
M     = 1          Diode Ideal factor(Emission Coefficient)