If chkSelectShift(0).Value = 1 Then
strReqShift "ShiftNum'" & 1 & "'"
bReqShift = True
MsgBox (strReqShift)
End If
If chkSelectShift(1).Value = 1 Then
If bReqShift = False Then
strReqShift "ShiftNum '" & 2 & "'"
bReqShift = True
Else
strReqShift = strReqShift & "OR ShiftNum= '" & 2 & "'"
MsgBox (strReqShift)
End If
End If
If chkSelectShift(2).Value = 1 Then
If bReqShift = False Then
strReqShift "ShiftNum '" & 3 & "'"
bReqShift = 1
Else
strReqShift = strReqShift & "OR ShiftNum= '" & 3 & "'"
MsgBox (strReqShift)
End If
End If