Mengeset nilai default yang ada di dalam suatu prosedur atau fungsi

'Persiapan: 1. Buat 1 Project baru dengan 1 Form, dan 2 Commandbutton.

'           2. Copy-kan coding berikut ke dalam editor form yang bertalian.

   
   
   
   
   
   
   
   
  

   
   
   
   
   
   
   
   
  
'Tekan tombol Command1 untuk memanggil prosedur dengan nilai parameter 5,

 'dan tombol Command2 untuk memanggil prosedur tanpa nilai parameter.

 'Di kasus kedua (Command2), nilai parameter akan menjadi nilai default-nya,

 'yang sebelumnya telah default diset ke 

1. Private Sub Command1_Click()  

  MySub (5)End Sub  Private Sub Command2_Click()   

 MySubEnd Sub Sub MySub(Optional MyParameter As Long = 1)   

 MsgBox "Nilai parameter = " & MyParameter, _         

  vbInformation, "Nilai Prosedur"End Sub.