How to get first chars of name of current stack modifier or class

Hi guys !

I wrote quick script for connect in one button for vertex and edges (in Edit_poly / Editable_poly modifiers). It works perfectly unless i change name of modifier (ex. Edit_poly_randomString). How to write that script will execute its case depends of first chars of modifier (Edit_polyDOESNT_MATTER_ANY_OTHER_STRING_HERE)or get class(?) of Edit_poly / Editable_poly?

macroscript ConnectSubObjectMode
category:"All MojeSkrypty"
tooltip:"Connect uruchamiany zaleznie od subMode"
(
local curObj = modPanel.getCurrentObject()
	Case (classOf curObj) of
	(
		Editable_poly: 
			(	Case (subobjectLevel) of
				(
				 1: $.EditablePoly.ConnectVertices ()
				 2: $.EditablePoly.ConnectEdges ()
				 3: $.EditablePoly.ConnectEdges ()
				)
			)
		Edit_Poly:
			(	Case (subobjectLevel) of
				(
				 1: $.modifiers[#Edit_Poly].ButtonOp #ConnectVertices 
				 2: $.modifiers[#Edit_Poly].ButtonOp #ConnectEdges
				 3: $.modifiers[#Edit_Poly].ButtonOp #ConnectEdges
				)
			)
		default:
			(	--Case (subobjectLevel) of
				--(
				 --1: $.modifiers[#Edit_Poly].ButtonOp --#ConnectVertices 
				 --2: $.modifiers[#Edit_Poly].ButtonOp --#ConnectEdges
				 --3: $.modifiers[#Edit_Poly].ButtonOp --#ConnectEdges

				)
			)
	)
)