Dim As Integer x, y, z, n = 25
For  x = 1 To n
    For  y = x To n
        For  z = y To n
            If x^2 + y^2 = z^2 Then Print Using "{##_, ##_, ##}"; x; y; z
        Next z
    Next y
Next x
Sleep