そこを

If Not xlRange Is Nothing AndAlso Not xlRange.value Is Nothing AndAlso Not xlRange.value.Equals(DBNull.Value) Then
　　ListBox1.Items.Add(xlRange.Value)
End If

とすると美しくてよろしい。