CreateArtisticText

Hello, people,
I have this problem:

'When
Dim TXT1 As Text

'Dim TXT1 As Text 'set TXT1 return Type Mismatch
'Dim TXT1 As TextRange 'set TXT1 return Type Mismatch
'To avoid error disable obe dims above

'Code below return error Type mismatch
Set TXT1 = ActiveLayer.CreateArtisticText(1, 1, "BhBp", cdrEnglishUS, cdrCharSetEastEurope, "Tahoma", 20, cdrUndefined, cdrFalse, cdrNoFontLine, cdrLeftAlignment)

'My question is:
Dim TXT1 As ???????

'that code below not return error Type mismatch
Set TXT1 = ActiveLayer.CreateArtisticText(1, 1, "BhBp", cdrEnglishUS, cdrCharSetEastEurope, "Tahoma", 20, cdrUndefined, cdrFalse, cdrNoFontLine, cdrLeftAlignment)

Thanks!