Public Function FormatAdr(Adr)
If IsNull([Adr]) Then
FormatAdr = "0000000"
ElseIf Not IsNumeric(Val(Adr)) Then
FormatAdr = Adr
Else
FormatAdr = Format(Val(Adr), "0000") & IIf(InStr(Adr, "/") = 0, Format(0, "000"), Format(Right(Adr, IIf(InStr(Adr, "/") = 0, 0, Len(Adr) - InStr(Adr, "/"))), "000"))
End If
End Function