DLLは、カレントディレクトリ、パスが通っているディレクトリ（環境変数で指定）の順で参照されます。
ここでは、ワークブックと同じ場所にDLLを置くことにし、カレントディレクトリをワークブックの場所と一致させるため、下記のような少々の工夫

BookPath = ThisWorkbook.Path    'ブックのパス
ChDrive left(BookPath, 1)       'ドライブ変更
ChDir BookPath                  'カレントディレクトリ変更

ワークブックのパスの１文字目（ドライブ名）を取出し、カレントドライブを切り替え、
カレントディレクトリをワークブックのパスとする。
これで、カレントディレクトリとワークブックのパスが一致します。（ドライブ含）

注：ネットワークアドレス（\\コンピュータ名\共有フォルダ名\xxx）の場合は、さらに、もう一工夫必要！

「開始」ボタンを押すとテキスト取得開始 「終了」ボタンを押すと終了してシートに戻る 　　　開始⇔終了　は交互に表示変化 また、実行時に「SHIFT」キーを押すと一時停止 キーは任意に変更可。プログラム中で下記の定数を変更 Const PAUSE_KEY = VK_SHIFT　　　　'キーコード Const PAUSE_KEY_NAME = "SHIFT"　　'キー名称 取得した文字列をコピーするには、「一時停止」後、 テキストボックス内の文字列を選択（または、CTRL+Aで全選択）後、 CTRL+Cでコピーします。右クリックのショートカットメニューは用意していません。 なお、右図「終了」ボタンの右側に数値は、上段左から マウスポインタ座標（pixel）、 ポイントしているウィンドウのハンドル、 ポイントしているウィンドウのクラス名 下段の　Name ：ライブラリ　・・・　などの項目は、 それぞれＤＬＬ内の個別関数を呼び出すことで取得可。 補足： キーの押下判定は、GetAsyncKeyState関数（API）を使用

矢印の先はイメージマップ。クリックするとソースファイルが開きます。

下記のWorkboolOpen イベントでコメントアウトを外す と、エクセルを起動した時、即、開始するようになります。

「開始」ボタンを押したら、「終了」ボタンが押されるまで無限ループ。

実行時にはウィンドウがコンパクトなサイズになるように、Init()サブで下記の項目を設定。

終了時に、記憶していたデータを復元。Finish()サブ

'ウィンドウ状態
Private Type ORG_VALUE
    caption As String       'キャプション
    windowstate As Integer  '
    width As Integer        'ウィンドウ幅
    height As Integer       '　　　　　高さ
End Type
Dim OrgValue As ORG_VALUE

ライセンスキーの登録

実行時（cmdGo_Click()イ ベント）で登録しています。
（何度登録しても構いません。また、不正キーの場合はエラーを返し、処理そのものは継続実行されます。）

Const LICENSE_KEY = "xxxxxxxx-xxxxxxxx-xxxxxxxx-xxxxxxxx"

'----------------------------------------------------
'ライセンスキーを登録
'---------------------------
rc = RegistKey(LICENSE_KEY)
'----------------------------------------------------

VB6のサンプルソースからインポート、
または、本サイトのVB6サンプルソースをコピー／貼り付へ

ウィンドウ関連のAPI（ラッパー関数）

GetTextDLL.DLLを呼び出すためのラッパー関数

APIの呼び出しで、32/64ビット版双方に対応させるために



のように変更します。