
If iProperties.Value("Project", "Description") = Nothing Then
'MessageBox.Show("Message", "Title")

iProperties.Value("Project", "Description") = InputBox("Please enter description", "Missing iProp", "Default Entry")
End If
