Excel - como puedo lograr que num se incremente

Private Sub TextCodigo_Change()
num = num + 1
Dim mcar As Long
mcar = Len(Me.TextCodigo)

Select Case mcar

Case 1
Me.TextCodigo = Me.TextCodigo & "-"
Case 5
Me.TextCodigo = Me.TextCodigo & "-"
Case 9
Me.TextCodigo = Me.TextCodigo & "-"
Case 13
Me.TextCodigo = Me.TextCodigo & "-"
Case 14
Me.TextCodigo = Me.TextCodigo & num

End Select

End Sub

Poner un código y no explicar que se desea hacer es como poner la cazuela con agua a calentar sin encender el fuego.


Saludos.
\\//_