'Ασκηση 0

Sub main()
    Dim Ammt As Double
    
    Ammt = InputBox("Δώστε την αρχική τιμή")
    MsgBox "Η τιμή χωρίς το ΦΠΑ είναι " + Str(Ammt / 1.18)
End Sub