<div class="zk-state-list__cell zk-state-list__price qa_price">
                    <p class="h-bold">
                        15 348,41 грн.
                    </p>
                     без ПДВ
                </div>

Dim m As Match = Regex.Match(TextBox1.Text.Trim, "<div class=""zk-state-list__cell zk-state-list.*"">\s*(?:<div .*</div>)?\s*(\w.*?)\s*</div>", RegexOptions.IgnoreCase)

        If m.Success Then   '~~~ if found...
            Dim strU As String = m.Groups(1).Value   
            MessageBox.Show(strU)    '~~~ display it
        Else
            MessageBox.Show("User!") '~~~ not found !
        End If