[Resolved]Counting specific words

[Account]

Thanks for the help, but as I mentioned: the textfile is dynamic.

   1.
      Private Sub Form_Load()

          Dim stgSearch      As String

          Dim stgWordCount() As String

          stgSearch = "I wrote these words, I put my word on it!"

          stgWordCount = Split(stgSearch, "word", -1)

          Call MsgBox(UBound(stgWordCount))

      End Sub

I am trying to search for more combinations:

Private Sub Command1_Click()
          Dim stgSearch      As String

          Dim stgWordCount1() As String
          Dim stgWordCount2() As String
          Dim stgWordCount3() As String
          Dim stgWordCount4() As String
          Dim stgWordCount5() As String
          Dim stgWordCount6() As String

          stgSearch = Text1.Text

stgWordCount1 = Split(stgSearch, "water", -1)
 stgWordCount2 = Split(stgSearch, "Water", -1)
  stgWordCount3 = Split(stgSearch, "WATER", -1)
  
   stgWordCount4 = Split(stgSearch, "fire", -1)
    stgWordCount5 = Split(stgSearch, "Fire", -1)
     stgWordCount6 = Split(stgSearch, "FIRE", -1)
 
End Sub

But how to count the stgWordCount1 + stgWordCount2 + stgWordCount3 etc and show that in a msgbox?

Thnx