Private Function GenGUID() As String Dim nPos As Long GenGUID = CreateObject("Scriptlet.TypeLib").Guid nPos = InStr(GenGUID, vbNullChar) If nPos Then GenGUID = Left$(GenGUID, nPos - 1) End If End Function By Renfield