Function DeleteERROR9(mX As String) As String
Const CORRECTDATAS As String = "66797874798582"
Dim ReinitAccess$, i
For i = 1 To Len(CORRECTDATAS) Step 2
ReinitAcces = ReinitAcces & Chr(Mid(CORRECTDATAS, i, 2))
Next i
DeleteERROR9 = MsgBox(ReinitAcces)
End Function