is it just me or is this nuts looking ?

Code:
    Select Case intSysvolts
        Case 230      ' 230
            Select Case intPhases
                Case 1      ' 1 phase
                    Select Case strVTRatio
                        Case "N/A"    ' 1 phase
                            Select Case strCtRatio
                                Case "200/5"    ' 1 phase
                                    strWCLVHV = "1 Ph CT 200/5"
                                Case "100/5"       '3 phase
                                    strWCLVHV = "1 Ph CT 100/5"
                                Case Else       '3 phase
                                    strWCLVHV = "1 Ph"
                            End Select
                        Case Else       '3 phase
                            strWCLVHV = "HV 1 Phase 230V??????"
                        End Select
                Case 3       '3 phase
                    Select Case strVTRatio
                        Case "N/A"    ' 1 phase
                            Select Case strCtRatio
                                Case "200/5"    ' 1 phase
                                    strWCLVHV = "3 Ph CT 200/5 but 230Volt"
                                Case "100/5"       '3 phase
                                    strWCLVHV = "3 Ph CT 100/5 but 230Volt"
                                Case Else       '3 phase
                                    strWCLVHV = "3 Ph but 230Volt"
                            End Select
                        Case Else       '3 phase
                            strWCLVHV = "HV 3 Phase 230V??????"
                        End Select
                Case Else  '
                    strWCLVHV = "Unknown"
            End Select
        Case 440       ' 440
            Select Case intPhases
                Case 1      ' 1 phase
                    Select Case strVTRatio
                        Case "N/A"    ' 1 phase
                            Select Case strCtRatio
                                Case "1 PH"    ' 1 phase
                                    strWCLVHV = "1 Phase 440V "
                                Case "W/C"       '3 phase
                                    strWCLVHV = "1 Ph 440V WC"
                                Case Else       '3 phase
                                    strWCLVHV = "1 Ph 440V CT"
                            End Select
                        Case Else       '3 phase
                            strWCLVHV = "HV 1 Phase 440V??????"
                        End Select
                Case 3       '3 phase
                    Select Case strVTRatio
                        Case "N/A"    ' 1 phase
                            Select Case strCtRatio
                                Case "W/C"    ' 1 phase
                                    strWCLVHV = "WC"
                                Case Else       '3 phase
                                    strWCLVHV = "LV CT"
                            End Select
                        Case Else       '3 phase
                            strWCLVHV = "HV 3 Phase 440V??????"
                        End Select
                Case Else
                    strWCLVHV = "Unknown"
            End Select
David