formulario de Consulta

Olá a todos, estou com um novo problema, gostaria da ajuda dos senhores se for possivel.

Tenho um botão de comando em meu formulário que ao clicado ele abre a caixa de diálogo nativa do access, para poder fazer pesquisa digitando o numero do telefone sem dddd, ai ela retorna os dados do cliêntes que está cadastrado o telefone, o que gostaria de fazer é o seguinte que ao invez de aparecer aquela caixa de dialogo do access, que não fica muito profissional, gostaria que ao clicar no botão de comando ele abrisse um formulário com uma caixa de texto onde eu digitaria o numero do telefone ai sim retornasse o cadastro do cliênte

estou usando esse código no meu formulario quando clico no botão de comando:

Private Sub Comando143_Click()
Telefone 'No Módulo Mensagens
End Sub



ai dispara o outro código que faz a pesquisa e o código é esse que se encontra em um módulo:

Function Telefone() 'Do botão Telefone do Form TODOS
Dim db As Database, tbl As Recordset, Count As Long
Set db = CurrentDb()
Set tbl = db.OpenRecordset("Registros")
Count = tbl.RecordCount ' Conta o total de registros na Tabela.
If Count < 1 Then 'Se nenhum registro
MsgBox "" _
& vbCrLf & "Adicione ao menos um nome à agenda" _
& vbCrLf & "para poder abrir o Formulário." _
& vbCrLf & "" _
& vbCrLf & "CLIQUE EM ADICIONAR.", vbExclamation, "NÃO HÁ DADOS PARA EXIBIR..."
DoCmd.Close acForm, "ProcuraTelefone"
Else 'Havenho registro executa
DoCmd.OpenForm "ProcuraTelefone", acNormal, "", "", , acNormal
End If
End Function




Obrigada espero ter explicado