VBA 標準モジュールとフォーム

ある標準モジュール内で生成した変数の値をフォームのコマンドボタンをクリックしたら表示されるプログラムはどうやってつくるのですか？

標準モジュール
sub test()
dim a as integer
dim b as integer
dim sum as string

a=5
b=1
sum=a+b

End sub


フォームのコマンドボタンクリック
Sub CommandButton1_Click()
MsgBox sum
End Sub

標準モジュールで計算した答えがフォームのコマンドボタンをクリックしたら答え6が表示されるようにしたいのですが、どうしたらできますか？

No.2 回答者： kmetu 回答日時： 2009/08/13 14:58

Public sum As Integer

Public Sub test()

Dim a As Integer
Dim b As Integer
'Dim sum As String

a = 5
b = 1
sum = a + b

End Sub

Private Sub Command1_Click()

test
MsgBox sum

End Sub

でいかがでしょうか

No.1 回答者： merlionXX 回答日時： 2009/08/13 14:56

そういうときはSubではなくFunctionをつかいます。

Function sum() As Long
Dim a As Integer
Dim b As Integer

a = 5
b = 1
sum = a + b
End Function

Sub CommandButton1_Click()
MsgBox sum
End Sub