Private Sub SetRegistryHKCUValue(strSubkey As String, strName As String, _
      strValue As String)
 
        Dim regKey As RegistryKey
 
        regKey = Registry.CurrentUser.OpenSubKey(strSubkey, True)
 
        If IsNothing(regKey) Then
            regKey = Registry.CurrentUser.CreateSubKey(strSubkey)
        End If
 
        regKey.SetValue(strName, strValue)
 
    End Sub

    Private Function GetRegistryHKCUValue(strSubkey As String, strValue As _
      String) As String
 
        Dim regKey As RegistryKey
 
        If Not IsNothing(Registry.CurrentUser.OpenSubKey(strSubkey)) Then
 
            regKey = Registry.CurrentUser.OpenSubKey(strSubkey)
            Return CStr(regKey.GetValue(strValue))
 
        Else
 
            Return ""
 
        End If
 
    End Function