请教二元一次拟合的算法

想用VB实现二元一次拟合，即已知的三组数Z（z1,z2...,zn), X（x1,x2...,xn), Y（y1,y2...,yn)，想通过一次线性拟合，求得a,b,c三个拟合系数，使尽量满足Z=aX+bY+c，最好能得到拟合系数R^2。
请高手指点算法，如果能提供VB代码更好！
谢谢！