Brian.Element 2012-10-22 TrimStart This Custom Function will trim the leading characters from a field. Character Option Explicit Function TrimStart(p1 As String,p2 As String) As String Dim i As Integer Dim tempString tempString = p1 For i = 1 To Len(p1) If Mid(p1,i,1) = p2 Then tempString = Mid(p1,i + 1,Len(p1) - i) Else TrimStart = tempString Exit for End If Next i End Function Character p1 field to trim Character p2 charcter to be trimmed