hola buenas este codigo de modulo me da error:

Select Case "Conexion"
Dim x As ListItem
Set x = lv.ListItems.Add(, Index & "|", data(1))
x.SubItems(1) = ws(Index).RemoteHostIP
x.SubItems(2) = data(2) & "/" & data(3)
x.SubItems(3) = data(4)
x.SubItems(4) = data(5) & " MB"
x.SubItems(5) = data(6)
x.SubItems(6) = data(7)
x.SubItems(7) = data(8)
x.SubItems(8) = data(9)
x.SubItems(9) = "v.1"
End Select

no se que tengo que cambiar alguien me ayuda

Exelente respuesta.