后台vb校验是否GUID

 ‘校验是否GUID
    Private Function IsGUID(ByVal strGUID As String) As Boolean
        Dim regexTemp As System.Text.RegularExpressions.Regex
        Dim boolReturn As Boolean = False
        boolReturn = regexTemp.IsMatch(strGUID, "^[\da-zA-Z]{8}-[\da-zA-Z]{4}-[\da-zA-Z]{4}-[\da-zA-Z]{4}-[\da-zA-Z]{12}$")
        Return boolReturn
    End Function