Brug af jokertegn i VBA

Hej

Jeg kan ikke få følgende kode til at virke, jeg får ingen fejlmeddelelse, men resultatet er ikke som ønsket.


With chbmodkarm
On Error Resume Next
If lstkarme.Text = "*G*" Then
chbmodkarm.Value = True
Else
If lstkarme.Text = "*J*" Then
chbmodkarm.Value = True
Else
chbmodkarm.Value = False
End If
End If
End With

Er det en fejl 40 eller hvad. Kan jeg i det hele taget bruge jokertegn i VBA?

PFT

Ups