Sub Main Dim h% h% = RTF.CreateHandle() 'open een nieuwe container Debug.Print h% RTF.CloseHandle h% 'sluit de container End Sub