Option Explicit
Sub Main
	Dim doc As FMDocument

	Set doc = Application.ActiveDocument

	If doc Is Nothing Then
		MsgBox "No active document."
		Exit Sub
	End If

	Dim crib As FMToolCrib

	Set crib = doc.ActiveToolCrib

	Dim em As FMEndMill

	Set em = crib.EndMills("endmill1000:reg")

	If em Is Nothing Then
		MsgBox "No such tool"
	Else
		MsgBox "Found it!  Changing some things..."
		em.Comment = "I have changed the comment... you should be able to see it by using the tool manager."
		MsgBox "Old diameter is " & em.Diameter
		em.Diameter = em.Diameter + 1
		MsgBox "New diameter is " & em.Diameter
		crib.SaveCrib
	End If
End Sub