Private Declare Function FindAtom Lib "kernel32" Alias "FindAtomA" (ByVal _
  lpString As String) As Integer
Private Declare Function AddAtom Lib "kernel32" Alias "AddAtomA" (ByVal _
lpString As String) As Integer
Private Declare Function DeleteAtom Lib "kernel32" (ByVal nAtom As Integer) As _
Integer
 
Sub geschuetzt()
 
  Dim strAtom As String 
 
  strAtom = AtomString
  If FindAtom(strAtom) = 0 Then
    m_Atom = AddAtom(strAtom)
 
    'Code
 
    DeleteAtom strAtom
  End if
 
end Sub
 
Private Property Get AtomString() As String
  AtomString = "MeinOneAndOnlyAtom1234567890"
End Property

Gruß
Dirk

--
?Get it right the first time