Dim a(2), u(2), b, abstand As Double
        Dim i As Integer
 
        Dim a_sum As Double = 0
        For i = 0 To 2
            a_sum = a(i) * a(i) + a_sum
        Next
        Dim au As Double = 0
        For i = 0 To 2
            au = a(i) * u(i) + au
        Next
 
        abstand = (au - b) / System.Math.Sqrt(a_sum)
        If abstand = 0 Then
            System.Diagnostics.Debug.WriteLine("Punkt in Ebene")
        Else
            System.Diagnostics.Debug.WriteLine("Punkt nicht in Ebene")
        End If

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist