Лидирующие нули с ошибкой форматирования SSN

Question

Приведенный ниже код прекрасно работает, но он не сохраняет начальные нули, когда формат SSN равен 041... Любые рекомендации, которые необходимо решить для сохранения нуля в ячейке.

If Not Intersect(Target, Range("SSN")) Is Nothing Then
    SSN = Range("SSN").Value
    SSN = Replace(SSN, "-", "", , , vbTextCompare)
    SSN = Replace(SSN, " ", "", , , vbTextCompare)
    If SSN = "" Then
    ElseIf Len(SSN) = 9 Then
        Range("SSN").Value = Format(SSN, "###-##-####")
    Else
        MsgBox "Invalid SSN Entered", vbCritical, "Invalid Data"
        Range("SSN").ClearContents
    End If
End If