Find en tekst i en tekststreng

Hej Eksperter

Jeg har et lille problem med at få min kode tilat finde en tekst i en tekststreng.
Koden ser således ud:

Sub Teskt()

Range("K1").Select
Dim Tekst, TekstLK
Tekst = ""
TekstLK = ""
Do Until Len(ActiveCell.Text) = 0
     
    If ActiveCell.Text = "Skjern Bank" Then
        TekstLK = "Skjern Bank"
   
    ElseIf ActiveCell.Text = "Kiwi" Then
        TekstLK = "Kiwi"
   
    Else
        TekstLK = "Ved ikke"
   
    End If
   
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = TekstLK
    ActiveCell.Offset(0, -1).Select
    ActiveCell.Offset(1, 0).Select
Loop

End Sub

Nu vil jeg gerne have den til at finde f.eks. "Skjern Bank" selv om der står "123 Skjern Bank" i cellen. Med andre ord: Find teksten i tekststrengen.

Kan nogen hjælpe?