Řešení:
Strana a rovnostranného trojúhelníku se vypočte ze zadané výšky v podle vzorce:

Module Module1

    Sub Main()

        Dim a, vyska As Double

        Console.Write("Zadejte vysku rovnostranneho trojuhelniku: ")
        vyska = Console.ReadLine

        If vyska > 0 Then
            a = 2 / Math.Sqrt(3) * vyska
            Console.WriteLine("Strana a= {0:0.000}", a)
        Else
            Console.WriteLine("Vypocet nelze provest")
        End If

        Console.ReadLine()

    End Sub

End Module