'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