find 4 cifre i en streng

må vi se et eksempel på strengen ?

Public Sub FindTal()
Dim Str As String, I As Integer
    Str = "srftjaerlkrfg seafroæwasj 4589 werfwer"
    For I = 1 To Len(Str) - 4
        If IsNumeric(Mid(Str, I, 4)) And Val(Mid(Str, I, 4)) >= 1000 Then
            Str = Mid(Str, I, 4)
            Exit For
        End If
    Next
End Sub

hallo

Hej Kabbak
tak, ligger du ikke et svar?
/Lilled

et svar ;-))