Private Function Parse(ByVal str As String, ByVal start As String, ByVal ending As String, ByVal index As Integer) As String
    Dim searcher As Integer
    Dim matches As Integer
    For searcher = 0 To Len(str)
        If Not (searcher + Len(start)) > Len(str) Then
            If Not str.IndexOf(start, searcher, Len(start)) = -1 Then
                matches = matches + 1
                If matches = index Then
                    Parse = str.Substring(searcher, (str.IndexOf(ending, searcher) + ending.Length) - searcher).Replace( _
                    start, vbNullString).Replace(ending, vbNullString)
                End If
            End If
        End If
    Next
    lastGame = True
    Parse = vbNullString
End Function