Private Function TryStrToGuid(ByVal g As String) As Boolean
        Try
            Dim test As New Guid(g)
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function