If I have a searchform field: John Q Smith and not found.  I'd like to have a pop up form like in the search seminar.

If ResultsList.ListCount = 0 Then
    
        R = MsgBox("Contact not found. Would you like to ADD as new Contact?", vbYesNo)
            If R = vbYes Then
  ' The thing I need help with counting the spaces inbetween "John Q Smith " and assigning the first part to FirstName and middle part to MiddleName and lastpart to LastName '

With Forms! ContactF
  !FirstName = FirstName
  !MiddleName = MiddleName
  !LastName = LastName
End With
End if

I believe you had a lesson that spelled it out for me.  Can you direct me or do you know how to do that middle part?