I finally figured it out the answer is below.
Dim compuDesc As String
compuDesc = ComboBox1.Text
Dim dirEntry As DirectoryEntry = GetDirectoryEntry()
Dim dirSearcher As DirectorySearcher = New DirectorySearcher(dirEntry)
dirSearcher.Filter = ("(objectClass=Computer)")
Dim dirSearchResults As SearchResult
Dim computername As String
For Each dirSearchResults In dirSearcher.FindAll()
computername = dirSearchResults.GetDirectoryEntry().Name
If (computername.Contains(compuDesc)) Then
computername = computername.Remove(0, 3)
ListView1.Items.Add(computername)
End If
Next