別のプロシージャに変数を渡したい

別のプロシージャに変数を渡せなくて困っています。
下記の内容を実行させようとしています。

１．command1ボタンをクリックして計算を終えて
２．command2ボタンをクリックすると計算結果をクリップボードに入れてメモ帳に貼り付ける

コードの概要は下記です。

【１．】//////////////////////////////////////////////////////////////
Private Sub Command1_Click()
Dim final as String
'いろいろと計算して最終的にfinalというstring型変数に文字列を得る。
final=計算結果
End Sub

【２．】//////////////////////////////////////////////////////////////
Private Sub command2_click()

Clipboard.Clear
Clipboard.SetText final

Dim memo As Long
memo = Shell("Notepad.exe", vbNormalFocus)
AppActivate memo, True 'アプリをアクティブにする
SendKeys "^v"
End Sub
//////////////////////////////////////////////////////////////////////

調べた結果，ByValがキーワードではないかと思い，Private Sub Command1_Click(ByVala final as string)など試してみましたができませんでした。


[余談]
１．のプロシージャ内で，クリップボードに入れてしまえばよいのですが，そうすると，１．の処理が終わってから，command2を押すまでの間にユーザがクリップボードを利用したら，このプログラムが成立しなくなるので，それは避けたいと思っています。

No.1 ベストアンサー 回答者： gatyan 回答日時： 2004/02/01 00:03

変数 final の宣言を Commanc1_Click の外に出してみてください。

Option Exciplicit などの直後に宣言し、スコープがフォーム内になるように宣言して見てください。
プロシジャ内で宣言すると、スコープはプロシジャ内になってしまいます。

この回答へのお礼

ありがとうございました。
------------------------
(General)で下記の宣言をすることで解決しました。
Public final As String

お礼日時：2004/02/01 12:51

No.2 回答者： zealzany 回答日時： 2004/02/01 01:22

「変数のスコープ（適用範囲）」

意味はＵＲＬを参考にしてください。

参考URL：http://search.yahoo.co.jp/bin/query?p=VB+%a5%b9% …