Android Question how do vb6 like "*.*?

Sub MatchWildcard(text As String, pattern As String) As Boolean

    Dim regexPattern As String = pattern
    regexPattern = regexPattern.Replace(".",".")  
    regexPattern = regexPattern.Replace("*", ".*")  '
    regexPattern = regexPattern.Replace("?", ".")    
    

    regexPattern = "^" & regexPattern & "$"

    Dim m As Matcher
    m = Regex.Matcher(regexPattern, text)
    Return m.Find
    
End Sub