핸드폰번호 하이픈 제거하는데 앞 0 값이 사라지는데 어떻게 하나요?

@엑셀은즐거워 님 감사합니다~^^)/

정말 큰 도움이 되었습니다~

@엑셀은즐거워 님 Sub 핸드폰하이픈제거()
'//하이픈제거
Dim OutputSt As Worksheet
Dim i As Integer
Set OutputSt = ThisWorkbook.Worksheets("출고")
OutputSt.Range("G1").Value = "전화번호"
TotalOutCount = OutputSt.Cells(Rows.Count, "B").End(xlUp).Row
'// substitute 적용
For i = 2 To TotalOutCount
OutputSt.Cells(i, 7) = Format(WorksheetFunction.Substitute(OutputSt.Cells(i, 2), "-", ""), "00000000000")

한번 되었는데, 다시 맨앞의 0이 나타나지 않네요^^;;

어찌해야 될까요?
Next

End Sub