John.Smith@Domain.com
I need to combine these two porcesses into one process.
Expand|Select|Wrap|Line Numbers
- Dim varName as Variant
- Dim varNameClr as Variant
- varNameClr = Left(rs.Email_ADDR, InStr(rs.Email_ADDR, ".") - 1) & " " & Mid(rs.Email_ADDR, InStr(rs.Email_ADDR, ".") + 1)
- 'returns John Smith@Domain.com
- varName = Left(varNameclr, InStr(varNameclr, "@") - 1)
- 'removes the @domain.com
- 'Returns John Smith