How can i take the text typed in the input box and add it to the current layer?
You can try following code
Sub test()Dim intext As StringActiveDocument.Unit = cdrMillimeterintext = InputBox("ENTER YOUR TEXT" & vbCr & "(max. 255 characters)")ActiveLayer.CreateArtisticText 50, 50, intextMsgBox ("lenght of your text: " & Len(intext) & " characters")End Sub