' Auf der anderen Form "Form1" existiert ein Textfeld mit dem Namen "code"
Option Explicit
 
Dim wpos As Long
 
Private Sub xpButton1_Click()
Dim spos As Long
spos = InStr(CLng(wpos) + Len(xpText1.Text), LCase(Form1.code.Text), LCase( _
  xpText1.Text))
If spos = 0 Then
MsgBox "Suchtext nicht vorhanden."
Exit Sub
End If
wpos = spos + 1
Form1.code.SelStart = spos - 1
Form1.code.SelLength = Len(xpText1.Text)
Form1.code.SetFocus
End Sub