Sub Main()
 
    'Koordinaten Anfang
    Dim x1 As Double = 30.0
    Dim y1 As Double = 55.0
 
    'Koordinaten Ende
    Dim x2 As Double = 90.0
    Dim y2 As Double = 45.0
 
    Dim angleInDegrees As Double = 50.0 ' Winkel in Grad
 
    ' Länge der Sehne
    Dim chordLength As Double = Math.Sqrt(Math.Pow(x2 - x1, 2) + Math.Pow(y2 - _
      y1, 2))
 
    ' Winkel in Bogenmaß umrechnen
    Dim angleInRadians As Double = angleInDegrees * Math.PI / 180.0
 
    ' Radius berechnen
    Dim radius As Double = chordLength / Math.Sin(angleInRadians / 2) / 2
 
    ' Bogenlänge berechnen
    Dim arcLength As Double = radius * angleInRadians
 
    Console.WriteLine("Die Bogenlänge beträgt: " & arcLength.ToString())
 
End Sub