I have a generic txt box on a custom appt form that is being used for
receipents.  What I want to do is place a button on the form that acts as a
"check names".  What I need is if the value is a valid address I need to be
able to find things like display name and such.  Any help would be greatly
appreicated.  Below is the code I have so far.

Sub CommandButton2_Click()
 strChangeTo = Item.UserProperties.Find("ChgTo").Value
 z=split(strChangeTo,";")
 i=0
 Do until i = (ubound(z)+1)
    Set objRecip = Item.Recipients.Add(z(i))
    if objRecip.resolve = true then
       msgbox z(i) & " is a valid address."
    else
       msgbox z(i) & " is not a valid address."
    end if
   i=i+1
 Loop
End Sub