søgerutine i en userform

Jeg har følgende udfordring. En søgerutine i en userform, hvor der søges i kolonne B, som indeholder medlemsnumre. Samme nummer kan optræde flere gange. Rutinen er knyttet til en knap i userformen, der bevirker at kolonne b gennemløses efterhånden som der trykkes på knappen. Trykkes på knappen gem, så slettes felterne i userformen, og man skal kunne indtaste et nyt medlemsnummer. Det kan man imidlertid ikke fordi, firstflag er skiftet til true efter første gennemløb. Mao. jeg vil bevare funktionaliteten med at kunne gennemløbe kolonne b, således som den virker nu, men vil også kunne ændre medlemsnummer i en ny søgning (altså ændre firstflag til false igen.).
håber beskrivelsen er tydelig nok.

Private Sub cmdSøg_Click()
 
  Dim msg, svar As String
  Dim counter As Integer
  Dim rng As Range
 
  change = 0
 
  counter = optælAntalRækker(2)
 
    Set rng = Range("B6:B" & counter + 6)
   
    On Error GoTo NoMatch
   
  If FirstFlag = False Then
        Range("B6").Activate
        rng.Find(What:=TxtMedlem.Text, After:=ActiveCell, LookIn:=xlFormulas, _
                LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                MatchCase:=False, SearchFormat:=False).Activate
        FirstFlag = True
    Else
        rng.FindNext(After:=ActiveCell).Activate
    End If
   
    mlrow = Selection.Row

    read_data (mlrow)
 
    change = 1
 
    Exit Sub
   
NoMatch:
     
    svar = MsgBox(" Der blev ikke fundet et match" & vbCrLf & " skal den tilføjes ", vbYesNo)
   
    If svar = vbNo Then
      TxtMedlem = " "
      txtDato.SetFocus
      Exit Sub
    End If
   
    If svar = vbYes Then
        MsgBox "Udfyld felterne og tryk på Gem"
        change = 0
        txtDato.SetFocus
    End If
   
End Sub

mvh.
Hubertus