'Fill the textbox in form1 with some text and press the button ctrl+F to search the text you have written in the textbox of form2. 'declarations in the code itself

'Form1 codings 'Textbox - Quantity 1 Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If vbCtrlMask And KeyCode = 70 Then Form2.Show vbModeless, Me End If End Sub 'Form2 codings 'Text1 - Text to be find 'Text2 - Text to be replace 'command1 - Find Next 'command2 - Replace 'command3 - cancel 'command4 - Replace all Dim length As Integer Dim start As Integer Dim str As Integer Dim benabled As Boolean Private Sub Command1_Click() benabled = True length = InStr(start, Form1.Text1.Text, Text1.Text) If length > 0 Then Form1.Text1.SelStart = length - 1 Form1.Text1.SelLength = Len(Text1.Text) Else MsgBox "The Specific Region has been searched", vbInformation Exit Sub End If start = length + Len(Text1.Text) End Sub Private Sub Command2_Click() If benabled = False Then Command1.Value = -1 Exit Sub End If If start > str Then Form1.Text1.SelText = Text2.Text str = start End If Call Command1_Click End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Command4_Click() start = 1 here: If benabled = False Then Command1.Value = -1 Exit Sub End If length = InStr(start, Form1.Text1.Text, Text1.Text) If length > 0 Then Form1.Text1.SelStart = length - 1 Form1.Text1.SelLength = Len(Text1.Text) Else MsgBox "The Specific Region has been searched", vbInformation Exit Sub End If start = length + Len(Text1.Text) Form1.Text1.SelText = Text2.Text GoTo here End Sub Private Sub Form_Load() length = 1 start = 1 str = 1 benabled = False End Sub Private Sub Text1_Change() Call Form_Load End Sub