Finde offset værdi

Er der i eksemplet indtastet 20 i userform ?

Dim antalRækker As Long, ræk As Long, bVærdi
Private Sub CommandButton1_Click()
    If Me.TextBox1.Value <> "" Then
        With ActiveWorkbook.Sheets("Ark1")
            antalRækker = ActiveCell.SpecialCells(xlLastCell).Row
           
            For ræk = 1 To antalRækker
                If CStr(.Range("A" & ræk)) = Me.TextBox1 Then
                    bVærdi = .Range("B" & ræk)
                    ActiveWorkbook.Sheets("Ark2").Select
                    ActiveSheet.Range("A1").Offset(bVærdi, 0).Select
                    Exit For
                End If
            Next ræk
    End With
    End If
End Sub

Hej Supertekst

Virker.
Tusind tak for hjælpen.

Denero

Hej denero

Fint og selv tak