If lstOutput.ListIndex = -1 Then
    MsgBox "Must first SELECT A FIELD to Remove from Reports List" & vbCrLf & vbCrLf & _
            "Click on a Field to Remove from Reports List & TRY AGAIN.", vbOKOnly, _
            "            Report List Selection Error"
    Exit Sub
Else
    lstOutput.RemoveItem lstOutput.ListIndex
End If