The listbox cannot be cleared using .Clear when a RowSource is assigned to it. The code assigns a RowSource when "View Risk Assessment" is first clicked. To remove a RowSource, set it to a nullstring.

Try this...

    With Me.ListBox1
        If .RowSource = "" Then .Clear Else .RowSource = ""
    End With