ReplaceForm Replace Dialog Box Form2% CancelBtn &Cancel OKBtn GlobalChk Global WholeWordChk Whole word PromptChk Prompt before replacing CaseSenseChk Case sensitive ReplaceBox FindBox ReplaceLbl Replace FindLbl GlobalChk_Click GlobalChk1 Value Form1 TextBox SelStart Form_Click Form_Load ReplaceBox ReplaceString FindBox FindString/ CancelBtn_Click ReplaceFormT ReplacceBox CaseSenseChkX ReplaceCheckBoxes ReplaceCheckBox CaseSense CaseSenseVal StoreStatush WholeWordValJ WholeWordChk PromptVal PromptChk GlobalVal OKBtn_Clickr CurIndex Find^ SelLength( FindCom Checkedm True| False Replace FoundMatch MatchIndex IsWord Choice SelText FindBox_Change FindBox_GotFocus HilightText ReplaceBox_Change HighlighhtText HighlightText ReplaceBox_GotFocus FindCount FindC0unt CancelBtn_Click FindBox_GotFocus Form_Load IsWord OKBtn_Click start search and replaces found a match replace flagh update the index to the current character store the text of the Find box in the variable Find store the text of the Replace box in the variable Replace is variable Find empty? nothing to find locate the index of the next substring Find in the text boxh are we looking for a whole word?s found a match? Yes! Display the matching text as selected text Replace '" Cancel advance CurIndex No more matching strings Information"& No match was found Information"& now unload the dialog box ReplaceBox_GotFocus StoreStatus