Suchen und finden

Sub CSVAuslesen()
Dim i As Integer
Dim s As Variant
auswahl = InputBox("Auswahl Spalte 2 = GCode")
s = auswahl
If auswahl = "" Then Exit Sub
For i = Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1
If Cells(i, 2).Value = s Then
Rows(i).EntireRow.Copy
einfügCSV
End If
Next
End Sub

Da nur die Eingabe als gesamtes in der Inputbox berücksichtig wird, hätte ich gerne gewusst wie der Code aussehen müsste wenn auch Teile der Eingabe berücksichtig werden.
Im jetziger Zustand gebe ich Müller ein und es wird auch nur nach Müller gesucht, Müllerin oder Müllermeyer werden nicht gefunden.
Ich möchte also nur Mü eingeben und es sollen alle Zellen gefunden werden wo ein mü vor kommt.
In hoffnungsvoller Erwartung oscar