InputBox Macro

How can i take the text typed in the input box and add it to the current layer? 

  • ActiveLayer.CreateArtisticText 0, 0, InputBox("title, "etc")

    check the help section for CreateArtisticTex method
  • You can try following code

    Sub test()
    Dim intext As String
    ActiveDocument.Unit = cdrMillimeter
    intext = InputBox("ENTER YOUR TEXT" & vbCr & "(max. 255 characters)")
    ActiveLayer.CreateArtisticText 50, 50, intext
    MsgBox ("lenght of your text:  " & Len(intext) & " characters")
    End Sub