VBA 正規表現 複数の文字列の繰り返し パターン
 
    Dim v As Variant
    With CreateObject("VBScript.RegExp")    '正規表現を利用する為のオブジェクトを作成
        .Pattern = "^(\d{1,2}r((\d{1})|(\d{1}(15|30|45|00)))(,|$|, )?)+$"   '文字列パターンを設定
         v = .test(Str.Value) '結果を格納
         Debug.Print v
    End With
