Function – Fonksiyon

Belli işlemleri yerine getirip işlem sonucuna bağlı olarak değer üreten kod parçasıdır.
Public Function Deger(X, Y)
If X > 0 Then
Deger = X + Y
Else
Exit Function ‘ Tercihli çıkış
End If
Deger = Sqr(Deger) ‘ Fonksiyon sonucu
End Function

Private Sub Form_Load()
Dim D1 As Long, D2 As Long
D1 = InputBox(" D1 ? ")
D2 = InputBox(" D2 ? ")
Deger = Topla(D1, D2) ‘ Fonkisyon çağrılıyor
MsgBox Deger
End Sub

1) Referans ile fonksiyon çağırmak : Fonksiyon içerisinde değeri değişen değişkenin bu değeri saklamasını sağlar.

Sub Bip(BipSayisi As Integer)
Do While BipSayisi > 0
Beep
BipSayisi = BipSayisi - 1
Loop
End Sub

Dim KacDefaBip As Integer
KacDefaBip = 5
Bip KacDefaBip
MsgBox KacDefaBip & "Defa Bip Sesi Çıkardım" ‘ Mesaj : 0 Defa Bip Sesi Çıkardım

2) Değer ile fonksiyon çağırmak : Fonksiyon içerisinde değeri değişen değişkenin; fonksiyon çağrılmadan önceki değerini almasını sağlar.

Sub Bip(ByVal BipSayisi As Integer)
Do While BipSayisi > 0
Beep
BipSayisi = BipSayisi - 1
Loop
End Sub

MsgBox KacDefaBip & "Defa Bip Sesi Çıkardım" ‘ Mesaj : 5 Defa Bip Sesi Çıkardım