Cómo llamar a una variable de un módulo desde otro módulo en VB Excel

Primer módulo1:

Public Sub ConnectTERDATA()
Dim fso As Object, _
Fileout As Object, _
Sql As Object, _
objNet As Object, _
FS As Object

Set cn = New ADODB.Connection
Set cm = New ADODB.Command
Set Rec_set = New ADODB.Recordset
Set fso = CreateObject("Scripting.FileSystemObject")

Dim ip As String, _
db As String, _
Row As Integer, _
SharepointAddress As String, _
LocalAddress As String, _
UserID As String, _
Pass As String, _
CommandTimeout As Integer, _
ws As Worksheet, _
DS As String

Row = 1
UserID = InputBox(Prompt:="Enter your User ID")
Pass = InputBoxDK(Prompt:="Enter your Password")
cn.ConnectionTimeout = 0 'To wait till the query finishes without generating error
cn.CommandTimeout = 5000
cn.Open "Data Source=TERA; Database=TERA; Persist Security Info=True; User ID=" & UserID & "; Password=" & Pass & "; Session Mode=ANSI;"
'Check for errors...
If cn.State = adStateOpen Then 'If connection is success, continue

MsgBox "Connected to TERADATA"
    End If
End Sub

Segundo Módulo2:

Public Sub DisconnectTERDATA()

    Call Module1.cn
    cn.Close


    MsgBox "Disconnected from TERADATA"
    End If
End Sub

Pero cuando llamo a esa variable "Cn" del módulo1 y arrojo el siguiente error como "Procedimiento esperado no varaibale" ¿Alguien puede ayudarme aquí?