Public Type test
    Connect As String
    Connect2 As String
End Type
 
Public tdf As test   '' Ausgabe der Fehlermeldung 
 
Public Sub test()
    MsgBox tdf.Connect & tdf.Connect2
End Sub

Private Sub Form_Load()
 Dim t As New Projekt2.Class1
 Dim r As Projekt2.test
 
 With r
    .Connect = "r"
    .connect2 = "d"
 End With
 
    Set t.tdf = r
    t.test
 
End Sub