Modify Loop to include 3 strings

Question

I have the following code I use to go through a sheet and parse the information onto separate sheets based on the string [Start].

Private Sub CommandButton7_C