How to name the list

Firstly I made a type mistake: In my language version "Sheet" is "List"

Hello guys
I need help. I am trying to write my first VBA code. First complication has already occured :-).
I want to name the sheet after cell, including cell´s format (00"/"0000"/"00)

I use this simple code but doesn´t work properly:

Private Sub CommandButton2_Click()
ActiveSheet.Name = ActiveSheet.Range("B1").Value
End Sub



For instance: The cell has content : 05/4103/01 and I need to get this into Sheet´s name field.

My procedure returns only 5410301 as a Sheet name


Thank you for your advices