Søg efter text i txtbox

Hvis det er en enkelt-linie tekstbox, SText er den søgte tekst:

I=InStr(1,TxtBox.Text,SText)

Så indeholder I placeringen af den søgte tekst, og 0 hvis teksten ikke kunne findes i tekstboksen.

Hvordan skriver jeg koden???

Jeg har skrevet:
Private Sub Command1_Click()

I = InStr(1, TxtBox.Text, \"test\")

End sub

Det funger ikke. I min tekstbox skal jeg eks. finde ordet \"test\". Skal jeg skrive nogle variabler olign??

Point satsen er hævet til 30 P.

Hvis TxtBox.Text=\"Ultraplex test nummer 37\"

Så bliver I tildelt værdien 11, når du klikker på knappen Command1, da teksten \"test\" påbegyndes i det 11. (ellevte) tegn i den streng, som TxtBox.Text indeholder. Læg mærke til, at InStr er case-sensitive, så hvis TxtBox.Text=\"Ultraplex Test nummer 37\", bliver I=0, da teksten \"test\" ikke findes (Brug evt. LCase$ og UCase$ til at omgå dette).

> driis

Jeg tror du har misforstået. Det jeg skal bruge, er en funktion der søger efter et bestemt ord i en txtbox, ved tryk på cmd1.

EKS:

I txtbox1 står der en text. I txtbox2 skriver jeg et ord og ved tryk på cmd1, søger programmet efter teksten i txtbox1.

Noget i stil med søgefunktionen i Office.

Jeg arbejder i øvrigt med VBA - Word

Point til driis

Tak.

Nicolaus