[VBA] Error 424: Object Required

Can anyone please let me know why my code is not working?  I keep receiving Error 424:  Object Required.  I'm pretty new to VBA and coding so it might be something very simple.  This is what I would like my code to do:

• There are text elements in a level.
• The text content are numbers (1, 2, 3, 4, etc.).
• I want to be able to select one text element, parse its content as a number and attach this number to a defined general URL.
• The result should be attached to the selected element as URL link.

This is my code:

Sub Init()
  Dim oText As TextElement
  Set oText = ElementEnumerator.Current.AsTextElement
  Dim content As String
  content = oText.Text
  CreateLink content
End Sub
Sub CreateLink(ByVal content As String)
  Dim strURL As String
  strURL = "http://www.google.com" & "/" & content
  Debug.Print "My URL=" & strURL
  CadInputQueue.SendKeyin "ELEMENT CREATE LINK URL " & strURL
End Sub