Well, I am much, much closer...however now I get an error at the very end. Error #13, Type mismatch...
Private Sub Combo32_NotInList(NewData As String, Response As Integer)
On Error GoTo Err_ErrorHandler
' provide text constants to reduce text later and allow for faster...