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

質問

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

１．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 · ベストアンサー

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

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

お礼

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

回答No.2

zealzany

「変数のスコープ（適用範囲）」
意味はＵＲＬを参考にしてください。

参考URL：

http://search.yahoo.co.jp/bin/query?p=VB+%a5%b9%a5%b3%a1%bc%a5%d7%a1%a1%c8%cf%b0%cf&hc=0&hs=0