title: Excel VBA. Compare if all letters in a string is in another string
body: <p>I would like to compare if a string has all the characters of another string. </p>
  
  <p>Example:</p>
  
  <p>String 1
  Hejslclo</p>
  
  <p>String 2
  Hello</p>
  
  <p>True string 2 has all the characters of string one. </p>
  
  <p>I have turned string 1 into an array and I think there should be a loop to check using Instr </p>
  
  <p>My first attempt at this:</p>
  
  <pre><code>Sub StringintoArray()
  
  
  Dim Temp As String
  
  Dim MyString As String
  
  Dim String2 As String
  
  
  MyString = "Heaslsflo"
  
  String2 = "Hello"
  
  
  Temp = StrConv(MyString, vbUnicode)
  
  Temp = Left(Temp, Len(Temp) - 1)
  
  aLetter = Split(Temp, Chr(0))
  
  
  
  'Dim StartRow As Integer
  
  Dim i As Integer
  
  
  
   For i = 0 To L(Temp)
  
     If InStr(i, String2, aLetter(I)) &lt;&gt; 0 Then
  
          MsgBox ("Yes")
  
     Else
  
         MsgBox ("No")
  
     End If
  
  Next i
  
  End Sub
  </code></pre>