Řešení:
Úhlopříčku u lze ze zadané strany čtverce a vypočítat podle vzorce (užívá Pythagorovu větu):

Module Module1

    Sub Main()

        Dim a, u As Double

        Console.Write("Zadejte stranu ctverce: ")
        a = Console.ReadLine

        If a > 0 Then
            u = Math.Sqrt(2 * a ^ 2)
            Console.WriteLine("Uhlopricka= {0:0.000}", u)
        Else
            Console.WriteLine("Vypocet nelze provest")
        End If

        Console.ReadLine()

    End Sub

End Module