vb.net yazıdaki kelimeleri bulma ve yenileriyle değiştirme

Dim paren As String = "<figure(.*?)</figure>"
        Dim command As String = inout
        Dim matchess As MatchCollection = Regex.Matches(command, paren)

        Dim rumble As Integer
        rumble = 0
        For Each m In matchess
            Dim temp As String = "match = " + m.ToString()
            MsgBox(temp)
            command = command.Replace(m.ToString(), "(xx)" & rumble)
            rumble += 1
        Next