Řešení:
Řešení využívá Pythagorovu větu. Zadaný poloměr nesmí být větší než vzdálenost, nejednalo by se o tečnu.

Module Module1

    Sub Main()

        Dim polomer, vzdalenost, tecna As Double

        Console.Write("Zadejte polomer kruznice: ")
        polomer = Console.ReadLine
        Console.Write("Zadejte vzdalenost stredu kruznice od bodu: ")
        vzdalenost = Console.ReadLine

        If polomer > 0 And vzdalenost > 0 And polomer <= vzdalenost Then
            tecna = Math.Sqrt(vzdalenost ^ 2 - polomer ^ 2)
            Console.WriteLine("Delka tecny: {0:0.000}", tecna)
        Else
            Console.WriteLine("Vypocet nelze provest")
        End If

        Console.ReadLine()

    End Sub

End Module