Equivalence de textbox.contains(variable) en vb 6.0

Public x
Private Sub Command1_Click()
  x = x + 1
  Command2_Click
End Sub

Private Sub Command2_Click()
  Dim str As String
  
  str = "This string has some text"
  Command2.Caption = x
  Text1.Text = str
  
  'Equivalent de textbox1.text.contains(variable)
  'de meme pour str.contains(variable)
  
  If InStr(1, Text1.Text, "some") Then
    MsgBox ("Ok pour: Text1.Text, Trouvé")
  End If
  If InStr(1, str, "string") Then
    MsgBox ("Ok pour: str, Trouvé")
  End If
End Sub