How to Delete Such Characters?

I would like to delete the characters at the end of the lines, but they have different lengths, thus it's impossible to delete by position.
As you can see, the main lines are within "_", the rest is garbage. I can't figure out a way to get rid of the ending characters.

Events/Stingers/GSB_Stn/Observer/Metal/Play_accent_metal_cm111_impact_massive_bonebreaker�Y�!/
Events/Stingers/GSB_Stn/Observer/Metal/Play_accent_metal_cm113_impact_massive_giant_roller`iA^!/
Events/Stingers/GSB_Stn/Observer/Metal/Play_accent_metal_cm125_impact_massive_black_pulse�4[1]z!/
Events/Stingers/GSB_Stn/Observer/Metal/Play_accent_metal_cm126_impact_massive_high_thingi\�"/
Events/Stingers/GSB_Stn/Blairwitch/Whoosh/Tonal/Play_Accent_PTSD_Breath_RiserWhoosh_Tonal_HelicopterEnd_01y��*!/
Events/Stingers/GSB_Stn/Blairwitch/Whoosh/Tonal/Play_Accent_PTSD_Breath_RiserWhoosh_Tonal_HelicopterEnd_02*�`[1]!/
Events/Stingers/GSB_Stn/Blairwitch/Whoosh/Tonal/Play_Accent_PTSD_Breath_RiserWhoosh_Tonal_HelicopterEnd_03�e"/
Events/Stingers/GSB_Stn/Blairwitch/Whoosh/Tonal/Play_Accent_RiserWhoosh_Tonal_MetalResonant_01��[1]E!/
Events/Stingers/GSB_Stn/Blairwitch/Whoosh/Tonal/Play_Accent_RiserWhoosh_Tonal_MetalResonant_02\���!/
Events/Stingers/GSB_Stn/Blairwitch/Whoosh/Tonal/Play_Accent_RiserWhoosh_Tonal_MetalResonant_03�ɉ�!/
Events/Stingers/GSB_Stn/Blairwitch/Whoosh/Tonal/Play_Accent_RiserWhoosh_Tonal_TailReverb_Long�q��!/
Events/Stingers/GSB_Stn/Blairwitch/Whoosh/Tonal/Play_Accent_RiserWhoosh_Tonal_TailReverb_Medium_02���!/
Events/Stingers/GSB_Stn/Blairwitch/Whoosh/Tonal/Play_Accent_RiserWhoosh_Tonal_TailReverb_Short��d!/
Events/Stingers/GSB_Stn/Observer/Rise/Play_rise_0101Й�!/

The characters at the very ending: "��d!/" "y��*!/" "�q��!/" etc.
If there was at least a space I could split the cells and delete them, but many are stuck with the last word which makes it impossible.

Maybe filtering only English words and delete symbols (except "/" and "_" would work).

Try this

PHP Code: 

Public Function DeleteCharacter(ByVal s As String) As String
Dim i As Long
s = Trim(s)
For i = 1 To Len(s)
    If Mid(s, i, 1) Like "[a-zA-Z0-9/_]" = False Then
        DeleteCharacter = Left(s, i - 1)
        Exit For
    End If
Next i
End Function 


I can't understand how to make it work.