*****************************************
Option Explicit              (Form-Modul)
---------------------------
Private Sub Command1_Click() 
Dim a As Long                  
Dim b As Long
a = 5
b = 3
Print x
End Sub
****************************************
 
Option Explicit              (Bas-Modul)
---------------------------
Public Function x() As Long
Dim a As Long
Dim b As Long
x = a + b
End Function