Visual Basic 6 - equazione di una retta , come?

Ciao ragazzi devo risolvere una equazione tramite codice... quello di una retta

qusta è l'equazione
eq(BD)= y - y1 = cof(x-x1)

io ho :
x = 5
X1 = 2
Y1 = 9
X2 = 4
Y2 = 5
cof = (Y2 - Y1) / (X2 - X1) ' coefficente angolare

sulla carta mi esce = 9
ho fatto :
y = (cof * (x - X1)) + Y1
ma cosi non va

beh no.
sulla carta esce 3

Y - Y1 = ((Y2 - Y1)/(X2 - X1))(X - X1)

quindi

Y = -2X + 13

quindi per x = 5,

y = 3

[edit: avevo invertito duevalori, il risultato non cambia]

STASERA RIPROVO

CMQ è SEMPRE A RIGUARDO QUL PROBLEMA LASCIATO IN SOSPESO..CERCO DI RISOLVERLO

NOVITA'?

per quanto mi attiri sempre la tua proposta ora sono veramente occupato.
ti dico, ho fatto 6 ore di lezione oggi. e l'universita` non e` ancora iniziata. e` solo di corsi interni alla normale.
senza contare che il 28 ho un esame pesantissimo su oltre 1600 pagine di libro.
non posso proprio guardarci subito.
comunque ti ho gia dato tutta la subroutine devi solo implementarla.

[edit in realta` e` una function ma il concetto e` quello]