Use Explicit capture groups. The following should do the job:
Dim exp = "(?.*)"
Dim M = System.Text.RegularExpressions.Regex.Match(YourInputString, exp, System.Text.RegularExpressions.RegexOptions.ExplicitCapture)
If M.Groups("GRP").Value <> "" Then
Return M.Groups("GRP").Value
End If