Dim reg As RegistryKey reg = Registry.Users.OpenSubKey("S-1-5-21-1757981266-861567501-682003330-500\Control Panel\International", True) If Convert.ToString(reg).Trim = String.Empty Then MsgBox("Blank") Else reg.SetValue("sShortDate", "dd/MM/yyyy") reg.SetValue("sLongDate", "dd/MM/yyyy") End If