I fixed this myself:
Dim Zheap_num = CAE_Listview.SelectedItems(0).SubItems(1).Text
Dim ZPATH As String = "\\" & strComputer & "\C$\Progra~2\Hewlett-Packard\HPCA\Agent\Lib\SYSTEM\RADIA\SOFTSRVC\ZSERVICE\"
Dim Zlist As New ArrayList
For Each sITEM In Zheap_num
Zlist.Add(sITEM)
Next
Zlist.Reverse()
For Each DelZ In Zlist
Del_Heap.Del_TextBox.Text += DelZ.text & vbCrLf
If System.IO.Directory.Exists(ZPATH & DelZ.text) Then
Directory.Delete(ZPATH & DelZ.text, True)
End If
Next