Application event handeling setting Project level Enterprise custom field

Private Sub App_ProjectBeforeSave(ByVal pj As Project, ByVal SaveAsUi As Boolean, Cancel As Boolean)
If pj.CurrentView = "Publish Project View" Then
'pj.Tasks.Item(1).Name = "Test View level "
'pj.ProjectStart = Now()
'pj.StatusDate = Now()
'MsgBox ("Inside view published")
'Else
Dim x As String
'x = "XYZ"
x = ActiveProject.ProjectSummaryTask.GetField(FieldNameToFieldConstant("- Groups", pjTask))
If x = "" Then
'confirm = MsgBox("Please go to Menu-->Project-->Project Information-->select your 'Group'", vbYesNo)
confirm = MsgBox("You did not select Group,do you want to select it", vbYesNo)
If confirm = 6 Then
Cancel = True
MsgBox ("Please go to Menu-->Project-->Project Information-->select your ' Group'")
Call ActiveProject.ProjectSummaryTask.SetField(FieldNameToFieldConstant(" - Groups", pjTask), " ")
Else
confirm1 = MsgBox("Default value 'G' has been set", vbYesNo)
'MsgBox ("Default value 'G' has been set")
Call ActiveProject.ProjectSummaryTask.SetField(FieldNameToFieldConstant("E - Groups", pjTask), "G")
End If


End If
End If