Code:
Select Case TxtStr
    Case "unwanted"
        Exit Sub
    Case ""
        Exit Sub
    Case Else
        Text1.Text = TxtStr
End Select