Uddrag procedurenavn

Jeg har brug en funktion som ud fra procedurenavnet uddrager navn og nummer på den aktuelle kontrol.

Altså:

Private Sub CheckBox0_Click()
-->Funktionen skal i dette tilfælde lægge hhv. "CheckBox" og "0" i to variabler
End Sub

NB! Jeg kan ikke bruge et Kontrol-array da det skal bruges i VBA

På forhånd tak :-)