Private Function GenGuid() As String
    Dim Guid As String
    Dim l As Integer
    
    Guid = CreateObject("Scriptlet.TypeLib").Guid
    l = InStr(Guid, "}")
    GenGuid = Mid(Guid, 1, l)
End Function

Public Sub SetGuid()
    Dim r As Integer
    
    For r = 1 To Selection.Count
        Selection(r).Value = GenGuid()
    Next
End Sub

SQL Server の Management Studio で見ると GUID は {} なしだが
SSIS で変換するときは {} 付でないとエラーになる