' Load the specified REG file in the registryPrivate Sub ApplyRegFile(ByVal sRegFile As String) On Error Resume Next 'first of all, check if the file exists If Not (GetAttr(sRegFile) And vbDirectory) = 0 Then Exit Sub 'load the reg file ' quote the file name: this is necessary if the file name is something ' like "token1 token2.reg" Shell "regedit /s " & Chr$(34) & sRegFile & Chr$(34)End Sub