Finde tegn i word dokument

Hej,

Jeg har fået en opgave, hvor jeg skal lave en macro der kan finde et bestemt tegn i et dokument fx. *

Jeg har prøvet at sætte lidt kode sammen jeg har næsten ingen erfaring med vba, så det er lidt svært at gennemskue hvad der går galt.

jeg har skrevet det her kode:
Sub Find()
Dim strText As String

  If Len(Selection.Text) = 1 Then
      strText = "*"
  End If
  Selection.Find.Execute
   
End Sub

Det er en blanding af noget kode jeg har fundet på Microsoft's hjemmeside.


Mvh Brian