Como a TELEMAR aumentou agora o número do telefone e muita gente tem
tabelas repletas de registros com o número com um dígito a menos
Esta rotina serve para adicionar o dígito que falta a todos os
registros da(s) tabela(s).

Edite a Tabela no modo estrutura e aumente o tamanho do Campo
Altere também a máscara

Depois crie um botão de comando provisório para este fim.
No evento Clique do botão coloque a rotina abaixo:

Private Sub Comando52_Click()
    Dim d As Database
    Dim r As Recordset
    Dim ret
    Set d = CurrentDb
    Set r = d.OpenRecordset("Teste", dbOpenDynaset) 'Teste é o nome da Tabela

    r.MoveFirst
    Do While Not r.EOF
        r.Edit
        r!Fax = LTrim(r!Fax)    'Aqui ele elimina os espaços à esquerda
        If Len(r!Fax) < 14 And Not IsNull(r!Fax) Then
            r!Fax = "3" & r!Fax 'Aqui o dígito a ser adicionado
        End If
        r.Update
        r.MoveNext
    Loop
    r.Close
    Set d = Nothing
End Sub