Eu acho q isso nao tem nada a ver com VB.
Mas...
Com os dados que vc tem da reta vc deve escrever a equação da reta:
(x-x1)/a = (y-y1)/b = (z-z1)/c
a,b,c são as coordenadas do vetor diretor da reta.V=(a,b,c) - no seu caso (a,b)
x1, y1 e z1 são pontos conhecidos da reta.
O vetor diretor V=B-A=(x2-x1,y2-y1,z2-z1)=(a,b)
Solução de duas retas são perpendiculares, logo seus vetores diretores também são perpendiculares. Logo, o produto escalar entre os 2 vetores = 0.
Reta 1: V1=(a, b, c)
Reta 2: V2=(x3-x1, Y3-y1, z3-z1)=(d,e,f)
V1.V2=(a.(x3-x1))+(b.(y3-y1))=0
x3, y3 são pontos da Reta 2.
Reta2: x = x3 + d m
y = x3 + d m
Ponto de interseção. Substituir dados da reta 2 na reta 1.
Espero q ajude em alguma coisa....
Rafael.