VBA ADOのStream オブジェクトを別のモジュール

Question

#実現したいこと。
メインモジュールでADOのStream オブジェクトをSetし別モジュール（SecondModule）でもそのまま利用したいです。
エラーは「ado 名前が適切ではありません」となります。
どのようにすればよいでしょうか？お力沿いお願いいたします。

---

[main]

Option Explicit
Public ado As Object


Sub Main()

    '出力設定する
    Dim Config As String
    Set ado = CreateObject("ADODB.Stream")
    ado.Charset = "UTF-8"
    ado.Open

    ado.WriteText vbLf, 0
    
    'Secondmodule呼び出し    
    Call SecondModule.Second_Process

    'コンフィグを保存する
    'BOMを削除する
    ado.Position = 0
    ado.Type = 1
    ado.Position = 3
 
    Dim tmp() As Byte
    tmp = ado.Read
    ado.Close
 
    ado.Open
    ado.Write tmp
    
    Config = Environ("UserProfile") & "\Desktop\test.conf"
    ado.SaveToFile Config, 2
    ado.Close

End Sub

---

[SecondModule]

Option Explicit

Public Sub Second_Process()

ado.WriteText vbLf, 0

End Sub

Answer 1

質問のコードをコピーして実行してみましたが、問題なく実行できてファイルが生成されました。
adoという名前の変数とかモジュールが別にあったりしませんか。

とりあえず回避として、adoという変数名を変更してみてください。

---

直接の回答ではありませんが、プログラミングには、グローバル変数は極力使わないというセオリーがあります。
グローバル変数 - Wikipedia

Public ado As Object

これはグローバル変数になります。

ここは、グローバル変数を使わずに引数で渡すという方法の方がベターです。
[SecondModule]

Public Sub Second_Process(ado As Object)

    ado.WriteText vbLf, 0

End Sub

Public ado As Object

Sub Main()
    Dim ado As Object

'中略

    'Secondmodule呼び出し    
    Call SecondModule.Second_Process(ado)

'後略

Comments

[radames1000]

「グローバル変数を使わない」に一票です。

[ITOMO5963]

実現したいことも達成できました。ありがとうございます。
グローバル変数を使わない仕様にしました。助かります。