The Weird and The Wonderful

If x = 3 Then
Else
    ' Statements here
End If

Const Number1 As Int32 = 0
Const Number2 As Int32 = 1
Const Number3 As Int32 = 13
Const Number4 As Int32 = 14
Const Number5 As Int32 = 10977
Const Number6 As Int32 = 10978
Const Number7 As Int32 = 10979
Const Number8 As Int32 = 10980
Const Number9 As Int32 = 10981
Const Number10 As Int32 = 10982
Const Number11 As Int32 = 10983
Const Number12 As Int32 = 10984
Const Number13 As Int32 = 10985
Const Number14 As Int32 = 10986
Const Number15 As Int32 = 10987
Const Number16 As Int32 = 10988

If Something() Then
    chkLogLateShiftEnd.Caption = GetCaptionText(Number16, chkLogLateShiftEnd.Caption)
    chkKeepOrigRadioName.Caption = GetCaptionText(Number8, chkKeepOrigRadioName.Caption)
    Frame9.Caption = GetCaptionText(Number15, Frame9.Caption)
    Frame12.Caption = GetCaptionText(Number11, Frame12.Caption)
    frapnl10(Number1).Caption = GetCaptionText(Number7, frapnl10(Number1).Caption)
    Label13.Caption = GetCaptionText(Number12, Label13.Caption)
    Label14.Caption = GetCaptionText(Number14, Label14.Caption)
    Label5.Caption = GetCaptionText(Number13, Label5.Caption)
    lblpnl03(Number4).Caption = GetCaptionText(Number9, lblpnl03(Number4).Caption)
    lblpnl03(Number3).Caption = GetCaptionText(Number10, lblpnl03(Number3).Caption)
    lblpnl10(Number2).Caption = GetCaptionText(Number5, lblpnl10(Number2).Caption)
    lblpnl10(Number1).Caption = GetCaptionText(Number6, lblpnl10(Number1).Caption)
End If

lblpnl10(0).AutoSize = True

IIf
(TX.TX_TYPE="R",
  IIf
  (TX.TX_MOSTYPE="P",
    IIf
    (TX.TX_DEST_STATUS="A",
      "PO Receipt",
      IIf
      (TX.TX_DEST_STATUS="U",
        "PO Receipt Hold",
        "Other"
      )
    ),
    IIf
    (TX.TX_DEST_STATUS="A",
      "WIP Receipt",
      IIf
      (TX.TX_DEST_STATUS="U",
        "WIP Hold",
        "Other"
      )
    )
  ),
  IIf
  (TX.TX_TYPE="I",
    IIf
    (ISNULL(RTRIM(TX.TX_MOSJOB)) Or RTRIM(TX.TX_MOSJOB)="",
      "Shipment Return",
      "Reverse Issue"
    ),
    IIf
    (TX.TX_ORIGIN_STATUS=TX.TX_DEST_STATUS,
      "Loc Transfer",
      IIf(TX.TX_ORIGIN="SCRAPPED",
        "Reverse Scrap",
        IIf
        (TX.TX_ORIGIN_STATUS="J",
          "Count Adj Up",
          IIf
          (TX.TX_ORIGIN_STATUS="D",
            "PN Change To",
            IIf
            (TX.TX_ORIGIN_STATUS="I",
              "Reverse Unplanned Issue",
              IIf
              (TX.TX_ORIGIN_STATUS="A" And TX.TX_DEST_STATUS="U",
                "Hold",
                IIf
                (TX.TX_ORIGIN_STATUS="U" And TX.TX_DEST_STATUS="A",
                  "Off Hold",
                  "Other"
                )
              )
            )
          )
        )
      )
    )
  )
) AS [Transaction Type]

CASE WHEN TX.TX_TYPE = 'R' AND TX.TX_MOSTYPE = 'P' AND TX.TX_DEST_STATUS = 'A' THEN 'PO Receipt'
	 WHEN TX.TX_TYPE = 'R' AND TX.TX_MOSTYPE = 'P' AND TX.TX_DEST_STATUS = 'U' THEN 'PO Receipt Hold'
	 WHEN TX.TX_TYPE = 'R' AND TX.TX_MOSTYPE = 'P' THEN 'Other'
	 WHEN TX.TX_TYPE = 'R' AND TX.TX_DEST_STATUS = 'A' THEN 'WIP Receipt'
	 WHEN TX.TX_TYPE = 'R' AND TX.TX_DEST_STATUS = 'U' THEN 'WIP Hold'
	 WHEN TX.TX_TYPE = 'R' THEN 'Other'
	 WHEN TX.TX_TYPE = 'I' AND ISNULL(RTRIM(TX.TX_MOSJOB),'')  = '' THEN 'Shipment Return'
	 WHEN TX.TX_TYPE = 'I' THEN 'Reverse Issue'
	 WHEN TX.TX_ORIGIN_STATUS = TX.TX_DEST_STATUS THEN 'Loc Transfer'
	 WHEN TX.TX_ORIGIN = 'SCRAPPED' THEN 'Reverse Scrap'
	 WHEN TX.TX_ORIGIN_STATUS = 'J' THEN 'Count Adj Up'
	 WHEN TX.TX_ORIGIN_STATUS = 'D' THEN 'PN Change To'
	 WHEN TX.TX_ORIGIN_STATUS = 'I' THEN 'Reverse Unplanned Issue'
	 WHEN TX.TX_ORIGIN_STATUS = 'A' AND TX.TX_DEST_STATUS = 'U' THEN 'Hold'
	 WHEN TX.TX_ORIGIN_STATUS = 'U' AND TX.TX_DEST_STATUS = 'A' THEN 'Off Hold' ELSE 'Other' 
END AS Transaction_Type