Private XA1 As Long
Private YA1 As Long
Private XE1 As Long
Private YE1 As Long
Private XA2 As Long
Private YA2 As Long
Private XE2 As Long
Private YE2 As Long
 
Private Sub Form_Load()
Me.ScaleMode = 3
XA1 = 5
YA1 = 10
XE1 = 100
YE1 = 100
 
XA2 = 15
YA2 = 40
XE2 = 100
YE2 = 80
End Sub
 
Private Sub Command1_Click()
Dim Steigung1 As Double
Dim Steigung2 As Double
Dim Offset1 As Double
Dim Offset2 As Double
Dim SchnittX As Double
Dim SchnittY As Double
 
Me.Line (XA1, YA1)-(XE1, YE1)
Me.Line (XA2, YA2)-(XE2, YE2), vbRed
 
Rem Die Funktion für jede Linie lautet
Rem F(Linie) = Y = Steigung * X + Offset
 
Rem Dein Beispiel
 
Rem 1. Gerade
Rem x = 0
Rem y = 0
Rem Steigung = 2
Rem Offset = 0
Rem y = 2 * x + 0  oder halt f(g)=y=2x
 
Rem 2. Gerade
Rem x = 0
Rem y = 2
Rem Steigung = 1
Rem Offset = 2
Rem y = 1 * x + 2  oder halt f(h)=y=x+2
 
Rem Steigungsfaktor errechnen
Rem oder wieviel Y-Schritte braucht ein X-Schritt
Steigung1 = (YE1 - YA1) / (XE1 - XA1)
Steigung2 = (YE2 - YA2) / (XE2 - XA2)
 
Rem Wenn die Steigung gleich ist, laufen die Linien
Rem parallel und können sich nicht schneiden
If Steigung1 = Steigung2 Then
    MsgBox "Kein Schnitt"
    Exit Sub
End If
 
Rem Offset errechnen
Rem oder um wieviel ist der Y-Ursprung vom X-Ursprung versetzt
Offset1 = XA1 - YA1
Offset2 = XA2 - YA2
 
Rem Für die Linien ergeben sich die Funktionen
Rem F(Linie1) = Y1 = Steigung1 * X1 + Offset1
Rem F(Linie2) = Y2 = Steigung2 * X2 + Offset2
Rem oder
Rem Y1 = Steigung1 * XA1 + Offset1
Rem Y2 = Steigung2 * XA2 + Offset2
Rem dann gleich setzen
Rem Steigung1 * XA1 + Offset1  =  Steigung2 * XA2 + Offset2
Rem und umstellen
SchnittX = (Steigung1 * XA1 + Offset1 - Offset2) / Steigung2
Rem Ergebnis in eine der Formeln einsetzen
SchnittY = Steigung2 * SchnittX + Offset2
 
Rem Schnittpunkt einzeichnen
Me.PSet (SchnittX, SchnittY), vbYellow
 
Rem Und heraus kommt @!#$ !!!!!!!!!!!
Debug.Print SchnittX
Debug.Print SchnittY
End Sub