VB.Net - Hilfe bei Regex

Hi,
vorne weg: Ich weiß, im Web gibt's zig Beispiele. Ich habe heute auch schon gesucht, aber abgebrochen, weil ich entweder den Wald vor lauter Bäumen nicht sehe oder schlicht weg keine Geduld beim Suchen habe. (Man kann auch sagen "zu faul bin" )

Ich will Wildcard-Suchen umsetzen. Die gegebenen Suchstrings haben dabei als Wildcard immer und nur das "*"-Zeichen.
Beispiele:
Heute*
*ist*
*Tag
Heute*ein*Tag
Heute*regnet*

Jetzt muss ich prüfen, ob ein gegebener Text einem gegebenen Suchstring entspricht. (Groß/Kleinschreibung egal - das wird vorher alles in Kleinbuchstaben umgewandelt)
Text: "Heute ist ein schöner Tag."
Heute* --> Wahr
*Heute* --> Wahr
*ist* --> Wahr
*Tag --> Falsch (wegen Punkt am Ende des Text)
Heute*ein*Tag. -->Wahr
Heute*regnet* --> Falsch

Meine Idee ist jetzt, das "*" durch die entsprechenden Regex-Strings zu ersetzen und dann mit Regex.IsMatch zu prüfen.
Wenn ich richtig liege dann muss ich "*" durch ".+" ersetzen.
Das klappt solange, wie das "*" nicht am Anfang steht. "*Heute*" soll z.B. auch Wahr ergeben. ".+Heute.+" liefert aber Falsch.
"*Tag" soll Falsch ergeben, "*Tag." Wahr. (beachte den Punkt am Ende) --> "*Tag" als ".+Tag" liefert aber Wahr?

Wie muss ich das angehen? (gerne auch mit Holzhammer )

E.

Dim txt As String = "Heute ist ein schöner Tag."  
Dim simplePatterns() As String = {"Heute*", "*Heute*", "*ist*", "*Tag"}  
For Each pattern In simplePatterns
    Dim regexString As String = "^" & Regex.Escape(pattern).Replace("\*", ".+") & "$"  
    If (New Regex(regexString,RegexOptions.IgnoreCase).IsMatch(txt)) Then
        MsgBox("Simple Pattern: '" & pattern & "' trifft zu.")  
    End If
Next