如何用VB解方程，请大神指导！！!谢谢谢谢谢谢谢谢！！！

方程是：b*n*H*a+8.314*298.15*((m+n)*ln((m+n*b)/(m+n*b+n*b*a))+n*b*a*ln(n*b*a/( m+n*b+n*b*a))=0
H = 42200
m = 56
n = 4
b = 1119
求a

A)固定方程，你需要一个数学老师，先把a的计算方程列出来。
B)动态方程，你需要开发一个AI，请准备好足够的资金招人攻关吧。