Στο παράδειγμα αυτό χρησιμοποιείται η συνάρτηση NPV για να υπολογιστεί η καθαρή παρούσα αξία μιας σειράς χρηματικών ροών οι οποίες περιλαμβάνονται στη μήτρα Αξίες(). Η μεταβλητή Απόδοση αντιπροσωπεύει τον πάγιο εσωτερικό βαθμό απόδοσης.

Dim Μορφή, Εκτίμηση, Απόδοση, Καθαρή_αξία, Μήνυμα
Static Aξίες(5) As Double ' Δημιουργία μήτρας.
Μορφή = "###,##0.00" ' Καθορισμός Μορφής χρήματος.
Εκτίμηση = .1 ' Η Εκτίμηση ξεκινά από το 10 τοις εκατό.
Απόδοση = .0625 ' Καθορισμός παγίου εσωτερικού βαθμού.
Αξίες(0) = -70000 ' Επιχειρησιακό κόστος έναρξης.
' Οι θετικές χρηματικές ροές αντιπροσωπεύουν το εισόδημα τεσσάρων διαδοχικών ετών.

Αξίες(1) = 22000 : Αξίες(2) = 25000
Αξίες(3) = 28000 : Αξίες(4) = 31000
Καθαρή_αξία = NPV(Aπόδοση, Αξίες()) ' Υπολογισμός της καθαρής παρούσας αξίας.
Μήνυμα = "Η καθαρή παρούσα αξία αυτών των χρηματικών ροών είναι "
Μήνυμα = Μήνυμα & Format(Καθαρή_αξία, Μορφή) & "."
MsgBox Μήνυμα ' Εμφάνιση της καθαρής παρούσας αξίας.