[Resolvido]função replace

ao criar pdf crio uma pasta, no entantoqueria mudar o nome
exemplo: 1234/12.5 AAAA_123
para 1234_12_5 AAAA_123

uso o comando

Private Sub Comando13_Click()
Dim strArquivo As String
Dim strLocal As String
Dim fso As Object
Dim strDocumento As String
DoCmd.Save
DoCmd.OpenReport "Art 132 Inquérito", acViewPreview, , "[001] = " & [001]
DoCmd.Maximize
strLocal = CurrentProject.Path & "\Inquéritos" & Replace(Me!cam01, "/", "_") & " " & [02] & ""
strDocumento = "Art 132 Inquérito"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.folderexists(strLocal) Then ' verifica se ja existe a pasta e subpasta
DoCmd.OutputTo acOutputReport, strDocumento, acFormatPDF, strLocal & strDocumento & " " & Replace(Me!cam01, "/", "_") & " " & [02] & " _ " & Me![001] & ".pdf", False
Else
MkDir strLocal ' se nao existir cria
DoCmd.OutputTo acOutputReport, strDocumento, acFormatPDF, strLocal & strDocumento & " " & Replace(Me!cam01, "/", "_") & " " & [02] & " _ " & Me![001] & ".pdf", False
End If
Dim numCop As Integer
numCop = InputBox("Informe a quantidade de cópias: ", "IMPRIMIR") 'Valor este que pode ser obtido por outro meios
DoCmd.PrintOut acPrintAll, , , acHigh, numCop 'Linha simplificada para a impressão
DoCmd.Close
End Sub

no entanto so muda a pimeira parte 1234_12.5 AAAA_123

como fasso para mudar também o "." para "_"

Boa noite, toy
Tem de ganhar agilidade
Será isto Replace(Replace(Me!cam01, "/", "_"), ".", "_")

é isso mesmo tinha conseguido dessa forma mesmo antes de ver a tua resposta, obrigado na mesma.

Quanto á agilidade ainda sou iniciante em VBA