Erro ao usar Replace para ajustar datas.

Boa tarde! Estava praticando os aprendizados do curso em uma planilha de registro de ponto chamada "rdo". Obtive alguns erros de sintaxe e corrigi. Quando termminei tive um resultado do qual não consigo corrigir sozinho. Segue codigo e a planilha antes de depois da macro. (obs: fiz duas versões achando que o erro era o comando replace e o troquei por um concatnar com Left + "string" + Right e o resultado foi igual)

Estou esquecendo alguma boa pratica ou conceito ? aguardo resposta

Do dia 1 ao 12 do mês 06 as datas trocam o mes pelo dia. e após o dia 12 elas voltam a ficar corretas.

Sub sbAjusta_mes_rdo()

Dim vLinhaMes As Long
vLinhaMes = 8

    Do While Cells(vLinhaMes, 1) <> vbNullString
            If Mid(Cells(vLinhaMes, 1), 4, 2) = "04" Then
            Cells(vLinhaMes, 1) = Replace(Cells(vLinhaMes, 1), "04", "05")
            Else
            Cells(vLinhaMes, 1) = Left(Cells(vLinhaMes, 1), 3) & "06" & Right(Cells(vLinhaMes, 1), 5)
            End If
            Replace
    vLinhaMes = vLinhaMes + 1
    
    Loop


End Sub




Sub sbAjusta_mes_rdo()

Dim vLinhaMes As Long
vLinhaMes = 8

    Do While Cells(vLinhaMes, 1) <> vbNullString
            If Mid(Cells(vLinhaMes, 1), 4, 2) = "04" Then
            Cells(vLinhaMes, 1) = Replace(Cells(vLinhaMes, 1), "04", "05")
            Else
            Cells(vLinhaMes, 1) = Replace(Cells(vLinhaMes, 1), "05", "06")
            End If
            Replace
    vLinhaMes = vLinhaMes + 1
    
    Loop