Here's a short API that you might want to try. It will ask you to select an element or elements and then create a text box at the centroid of that element with the ID of that element. One problem with this might be if you have very small elements the text box will engulf the element unless you're zoomed in.
Sub Main
Dim App As femap.model
Set App = feFemap()
Dim eSet As femap.Set
Set eSet = App.feSet
Dim el As femap.Elem
Set el = App.feElem
Dim lab As femap.text
Set lab = App.feText
Dim eID As Long
Dim cent As Variant
If eSet.Select(FT_ELEM, True, "Select Elements to Label") <> FE_OK Then End
lab.ModelPosition = True
lab.AllViews = True
lab.DrawBorder = True
lab.BackColor = FCL_WHITE
While eSet.Next
eID = eSet.CurrentID
el.Get(eID)
el.GetCentroid(cent)
lab.vTextPosition = cent
lab.text = Str$(eID)
rc = lab.Put(lab.NextEmptyID)
Wend
rc = App.feViewRegenerate( 0 )
End Sub