Private Sub Form_Click()
Dim x, y, z

x = InputBox("")
y = InputBox("")
z = InputBox("")

If x > y Then
   If x > z Then
      If y > z Then
         Print x, y, z
            Else
         Print x, z, y
      End If
   Else
      If z > y Then Print z, x, y
   End If
Else
   If y > z Then
      If z > x Then
         Print y, z, x
      Else
         Print y, x, z
      End If
   Else
      Print z, y, x
   End If
End If

End Sub

If Text1 = "hola" Then
      MsgBox "osii"
else
      MsgBox "oNoo"
End If

'Name App.Path & "\Hola.txt" As App.Path & "\" & Day(Now) & "-" & Month(Now) & "-" & Year(Now) & "  " _
'& Hour(Now) & "." & Minute(Now) & "." & Second(Now) & ".txt"