Remove Leading Numerical Characters

'Remove Leading Numbers

If Not IsNull(Forms("frmRA")![Customer Address1]) Then

Set regEx = CreateObject("VBScript.RegExp")

regEx.Pattern = "^\d+"

Forms("frmRA")![Customer Address1] = regEx.Replace(Forms("frmRA")![Customer Address1], "")

Forms("frmRA")![Customer Address1] = Trim(Forms("frmRA")![Customer Address1])

End If

-------------------------------------------------------------------------------------------------------

Function remleaddig(str As String)

Set regEx = CreateObject("VBScript.RegExp")

regEx.Pattern = "^\d+"

str = regEx.Replace(str, "")

remleaddig = Trim(str)

End Function