Case Nesting

Hello Eveyone! I am very new to this field and have an issue that I need some additional help with. I have this code in my project:

Select Case Inv_Val
  Case "Asset"
   If Pay_Scan_Dt = "" Then
    With Pay_ico
        .ForeColor = RGB(255, 0, 0)
        .Caption = "Y"
     End With
  Else
     With Pay_ico
        .ForeColor = RGB(51, 255, 51)
        .Caption = "N"
     End With
  End If
  Case "PRIVATE"
   If Pay_Scan_Dt = "" Then
    With Pay_ico
        .ForeColor = RGB(255, 0, 0)
        .Caption = "Y"
     End With
  Else
     With Pay_ico
        .ForeColor = RGB(51, 255, 51)
        .Caption = "N"
     End With
   End If
  Case "FNMA"
   If Pay_Scan_Dt = "" Then
    With Pay_ico
        .ForeColor = RGB(255, 0, 0)
        .Caption = "Y"
     End With
  Else
     With Pay_ico
        .ForeColor = RGB(51, 255, 51)
        .Caption = "N"
     End With
   End If
  Case "GNMA"
   If Pay_Scan_Dt = "" Then
    With Pay_ico
        .ForeColor = RGB(255, 0, 0)
        .Caption = "Y"
     End With
  Else
     With Pay_ico
        .ForeColor = RGB(51, 255, 51)
        .Caption = "N"
     End With
   End If
  Case "FHLMC"
   If Pay_Scan_Dt = "" Then
    With Pay_ico
        .ForeColor = RGB(255, 0, 0)
        .Caption = "Y"
     End With
  Else
     With Pay_ico
        .ForeColor = RGB(51, 255, 51)
        .Caption = "N"
     End With
   End If
  Case "VA"
   If Pay_Scan_Dt = "" Then
    With Pay_ico
        .ForeColor = RGB(255, 0, 0)
        .Caption = "Y"
     End With
  Else
     With Pay_ico
        .ForeColor = RGB(51, 255, 51)
        .Caption = "N"
     End With
   End If
Case "USDA"
   If Pay_Scan_Dt = "" Then
    With Pay_ico
        .ForeColor = RGB(255, 0, 0)
        .Caption = "Y"
     End With
  Else
     With Pay_ico
        .ForeColor = RGB(51, 255, 51)
        .Caption = "N"
     End With
   End If
  Case "FHA"
   If Pay_Scan_Dt = "" Then
    With Pay_ico
        .ForeColor = RGB(255, 0, 0)
        .Caption = "Y"
     End With
  Else
     With Pay_ico
        .ForeColor = RGB(51, 255, 51)
        .Caption = "N"
     End With
   End If
End Select

This is supposed to change my label from a Yes to a No depending on the Dates. However it doesn't work!!! Someone suggested "Nesting" them.

I have not done that before - can someone please show me how I would "NEST" these statements? and maybe to correct the code to make the label change?

I would be eternally grateful!!

Thank You,

Marie A.