Μπορούμε ακόμα να ορίσουμε δικές μας συναρτήσεις με τον εξής τρόπο:
Function όνομα συνάρτησης(δηλώσεις παραμέτρων) as τύπος αποτελέσματος
δηλώσεις τοπικών μεταβλητών;
εντολές
όνομα = τιμή endFunction
Οι παράμετροι της συνάρτησης είναι μια σειρά από τύπους και ονόματα
μεταβλητών χωρισμένα με κόμμα.
Όταν καλείται μια συνάρτηση οι μεταβλητές που ορίστηκαν ως παράμετροι
παίρνουν τις τιμές που δόθηκαν στο όρισμα κατά την κλήση.
Για να θέσουμε την τιμή που επιστρέφει η συνάρτηση αναθέτουμε μια
τιμή στο όνομά της (δεν ορίζουμε αντίστοιχη μεταβλητή).
Παράδειγμα:
Sub main()
MsgBox "64!=" + Str(factorial(45)) EndSub
' Return n! Function factorial(n As Integer) As Double Dim i As Integer Dim r As Double ' result
r = 1 For i = 1 To n
r = r * i Next i
factorial = r EndFunction
Η εντολή exit function μπορεί να εμφανιστεί σε οποιοδήποτε σημείο της συνάρτησης.
Στο σημείο εκείνο σταματά η εκτέλεση της συνάρτησης και ο
έλεγχος ροής του προγράμματος
συνεχίζει από το σημείο που κλήθηκε η συνάρτηση.