If userform textbox contains a value then...

[Mikeymike_W]

Hi, I am trying to make a label visible/invisible depending on the partial value of a textbox in a userform.
So the text box will contain lots of different text but if it contains Top of the card or bottom of the card etc then i want te label to be visible otherwise i want the label to be invisible.
This is what I have been trying but the label is always visible:

If TBRandA.Text <> "The top of the Card" Then
LblInfo1.Visible = True
ElseIf TBRandA.Text <> "The bottom of the Card" Then
LblInfo1.Visible = True
ElseIf TBRandA.Text <> "The left of the Card" Then
LblInfo1.Visible = True
ElseIf TBRandA.Text <> "The right of the Card" Then
LblInfo1.Visible = True
Else
LblInfo1.Visible = False
End If

Many thanks in advance for your help,

Mike

 

[Yongle]

This is not case sensitive
LblInfo1 is rendered non visible unless TBRandA contains one of those 4 phrases

    Dim a As Variant, Txt As String
    LblInfo1.Visible = False
    For Each a In Array("top", "bottom", "left", "right")
        Txt = "the " & a & " of the card"
        If InStr(1, TBRandA.text, Txt, vbTextCompare) Then LblInfo1.Visible = True
    Next

 

[Mikeymike_W]

This is not case sensitive
LblInfo1 is rendered non visible unless TBRandA contains one of those 4 phrases

    Dim a As Variant, Txt As String
    LblInfo1.Visible = False
    For Each a In Array("top", "bottom", "left", "right")
        Txt = "the " & a & " of the card"
        If InStr(1, TBRandA.text, Txt, vbTextCompare) Then LblInfo1.Visible = True
    Next

Yongle thank you so much, that worked a treat!