Use an input box and let the user type in the name change for the label.
Code:
Private Sub Command0_Click()
Dim strInput As String
strInput = InputBox(Prompt:="Type your new label name.", Title:="Rename Label")
Me.lYourLabel.Caption = strInput
End Sub