*****************************************
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