Easy way is:

Dim myGuid As Guid
myGuid = Guid.NewGuid