Sub Test() Dim t As Text Dim s As Shape Dim d As Document Set d = CreateDocument Set s = d.ActiveLayer.CreateArtisticText(4, 5, "This is a test.") Set t = s.Text MsgBox "The text between characters 1 and 5 is: " & vbCr & t.Range(1, 5).Text t.Range(9, 14).Case = cdrAllCapsFontCaseEnd Sub