Reakce na odpověď

malá nápověda:

retValue = CDbl(InputBox("Davaj Evra", "Evrokalkuláčka", 1))
If retValue < 0 Then wscript.quit
vysledek = retValue * 25 * 1.14 * 1.5
wscript.echo "Zadání: " & retValue & vbCrLf & "Výsledek: " & vysledek

Do smyčky si to snad už dáš sám

edit: třeba takto:

retValue=1
Do until retValue < 0
	retValue = CDbl(InputBox("Davaj Evra", "Evrokalkuláčka", 1))
	If retValue < 0 Then Wscript.quit
	vysledek = retValue * 25 * 1.14 * 1.5
	wscript.echo "Zadání: " & retValue & vbCrLf & "Výsledek: " & vysledek
Loop

Prográmek na vypočítání ceny z EUR