Option Explicit
 
Public MyName As String  'auf get/let verzichtet
 
Private Sub Class_Initialize()
  Debug.Print "c1.Class_Initialize"
End Sub
 
Private Sub Class_Terminate()
  Debug.Print "c1.Class_Terminate " & MyName
End Sub

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3150
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4080
   LinkTopic       =   "Form1"
   ScaleHeight     =   3150
   ScaleWidth      =   4080
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox txtToBeReplaced 
      Height          =   375
      Left            =   3120
      TabIndex        =   3
      Top             =   360
      Width           =   615
   End
   Begin VB.TextBox txtShow 
      Height          =   1815
      Left            =   240
      MultiLine       =   -1  'True
      TabIndex        =   2
      Top             =   1200
      Width           =   2535
   End
   Begin VB.CommandButton cmdReplace 
      Caption         =   "Replace"
      Height          =   615
      Left            =   1680
      TabIndex        =   1
      Top             =   240
      Width           =   1095
   End
   Begin VB.CommandButton cmdNew 
      Caption         =   "New"
      Height          =   615
      Left            =   240
      TabIndex        =   0
      Top             =   240
      Width           =   1095
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
 
'--- Hier beginnt eigentlicher Code
Option Explicit
 
Private m_Dic As Dictionary
Private m_cnt As Integer
 
 
Private Sub cmdNew_Click()
 
  Dim obj As c1
 
  Set obj = New c1
  obj.MyName = CStr(m_cnt)
  m_Dic.Add obj.MyName, obj
 
  m_cnt = m_cnt + 1
 
  ShowContent
 
End Sub
 
Private Sub cmdReplace_Click()
 
  Dim rep As String
  Dim obj As c1
 
  rep = txtToBeReplaced.Text
 
  If m_Dic.Exists(CStr(rep)) Then
    Set obj = New c1
    obj.MyName = m_Dic(CStr(rep)).MyName & "REP"
    Set m_Dic(CStr(rep)) = obj
  End If
 
  ShowContent
 
End Sub
 
Private Sub Form_Load()
 
 
  Debug.Assert txtShow.MultiLine  'bitte setzen
 
  Set m_Dic = New Dictionary
 
End Sub
 
Private Sub ShowContent()
 
  Dim obj As c1
  Dim Key As Variant
 
  txtShow.Text = vbNullString
  For Each Key In m_Dic
    Set obj = m_Dic(Key)
    txtShow.Text = txtShow.Text & obj.MyName & vbNewLine
  Next Key
 
End Sub

Gruß
Dirk

--
?Get it right the first time