'在模块1中的语句：

Public a1　　　‘声明a1为公共变量

Sub 调用mk2()

 Call mk2　‘调用模块2中的Sub mk2()

   Debug.Print a1

  End Sub

'在模块2中的sub mk2()语句：

Sub mk2()

 'Public Sub mk2() '也可执行

 b1 = InputBox("b1=")

 a1 = b1 + 15

 'Debug.Print a

End Sub