VBA Withステートメント中のretとは何か

Question

いま、会社で使っているVBAプログラムの解読をしています
その中でWithステートメント中の「ret=・・・」という箇所の意味が分からず、質問させていただきました。

'シートプロシージャ　
Private Sub cmd_○○_Click()
  Const sBookName = "○○.xls"
    With Workbooks(sBookName)
        ret = .Application.Run(sBookName & "!sSbSetData")
    End With
End Sub

Withステートメントは構文内の左辺に「.プロパティ名=・・・」と書いているイメージですが、
これはピリオドもないですし、retという変数か定数を宣言している?と思って、右クリック→定義を押しても
認識できませんとなります。
宜しくお願い致します。

Answer 1

retという変数を宣言無しに使用し、.Application.Run(省略)の戻り値を入れているだけですね。

VBAにとってはretは予約語でもなんでもありません。
単に、戻り値（return value）の省略形で使っているだけの変数かと思います。

Comments

[hanbee.com]

なるほど。質問しておきながらなんですが、若干そうだと思っていたところはありました。
この使い方について質問したいのですが
このプログラムではある関数の実行などのために、同じような感じで
dim check as string
check = 何かしらの関数()
という風に書かれているところもよくありました。
これも同じ使い方だと思うんですが、この場合はcheckがちゃんと宣言されているのに対して、
質問文で提示させていただいたコードでは
retは宣言されていません。
こういう使い方をVBAではよくされるものなのでしょうか？

[ishina_yum]

> こういう使い方をVBAではよくされるものなのでしょうか？
望ましくはありませんが、残念ながらよく見ます。

モジュールの先頭で
Option Explicit
と記述することで、そのモジュールでは宣言無しの変数の使用を禁止することができます。

[hanbee.com]

なるほど
そういうことなのですね。
プログラムを作った人はただ単に関数の実行がしたかったがためだけに
ret=function() としていたのですね、
ありがとうございました。