'Declarations
Private Sub CommandButton2_Click()
Dim inputValue As Double
Dim unitType As String
Dim result As Double
Dim UserResponse As Long
Dim nconntors As Double
Dim nsplices As Double
Dim ConnectLoss As Double
Dim SpliceLoss As Double
Dim MaxAttn As Double...
