søg i tekst - VBA

Jeg bruger denne funktion til at matche tal, men jeg vil også have den til at virke med tekst:

Private Function MatchRow() As Long
    On Error Resume Next
    MatchRow = Application.Match(Val(Me.ComboBox1.Value), Worksheets("Ark1").Columns(1), 0)
   
    If MatchRow > 0 Then Exit Function
    MatchRow = Application.Match(Me.ComboBox1.Value, Worksheets("Ark1").Columns(1), 0)
   
    On Error GoTo 0
End Function

vh
Mathias