Visual Basic - ¡URGENTE! BUSCAR CON COMODINES

Hola, tengo una duda que no se como resolver:

En un lisbox1 tengo por ejemplo:

Bolsa
Boleto
Bolsita

Y quiero pasar a un list 2 items pero que cumplan ciertas condiciones como por ejemplo que empiecen por "Bo" y la cuarta letra sea una "s" (caso de Bolsa y Bolsita)

¿Cómo he de hacer?

Muchas gracias.

Considera el siguiente ejemplo:

Private Sub Command1_Click()

Dim Cadena$

Cadena = "Bolsita"

If Cadena Like "Bo*" And Cadena Like "???s*" Then MsgBox "Valido"

End Sub

Suerte