2020-01-19 19:57	THB	Sealed	4	3	BG	Pool, Deck 1, Deck 2, Deck 3, Deck 4
2020-01-19 15:40	THB	Sealed	1	3	BR	Pool, Deck 1, Deck 2
2020-01-18 22:21	THB	Sealed	2	3	UB	Pool, Deck 1, Deck 2, Deck 3
2020-01-18 19:26	THB	Sealed	1	3	WB	Pool, Deck 1, Deck 2, Deck 3
2020-01-18 13:39	THB	Sealed	1	3	WU	Pool, Deck 1, Deck 2, Deck 3
2020-01-17 17:45	THB	Sealed	4	3	UGb	Pool, Deck 1, Deck 2, Deck 3

2020-01-19 17:46	ELD	QuickDraft	1	3	WG	Draft, Pool, Deck 1
2020-01-15 19:39	ELD	QuickDraft	6	3	WG	Draft, Pool, Deck 1
2020-01-14 22:04	ELD	QuickDraft	2	3	Rwb	Draft, Pool, Deck 1
2020-01-13 19:15	ELD	QuickDraft	0	3	BGw	Draft, Pool, Deck 1, Deck 2
2020-01-12 19:29	ELD	QuickDraft	5	3	RG	Draft, Pool, Deck 1
2020-01-12 16:21	ELD	QuickDraft	1	3	BR	Draft, Pool, Deck 1
2020-01-09 19:43	ELD	QuickDraft	3	3	WG	Draft, Pool, Deck 1
2020-01-08 19:24	ELD	QuickDraft	1	3	UR	Draft, Pool, Deck 1
2020-01-07 19:19	ELD	QuickDraft	7	2	WB	Draft, Pool, Deck 1

Select Case GeneralInfo.Range("genLoanNumber")
    Case Is = vbNullString
        Select Case SheetData.Range("Construction_Loan")
            Case Is = vbNullString
                Select Case SheetData.Range("Do_Not_Assign_Loan_Number")
                    Case Is = vbNullString
                        If MsgBox("Would you like to assign the loan number now?", vbYesNo + vbCritical, UCase("Assign Loan Number")) = vbYes Then
                            AssignLoanNumber
                        Else: SheetData.Range("Do_Not_Assign_Loan_Number") = "X"