Microsoft-Excel - Hilfe zu Formel zum Befüllen n. bestimmter Voraussetzung

Moin moin, ich hoffe Ihr könnt mir helfen bei einer Excel-Formel, um eine Preis-Spalte zu füllen.

Die Excel-Liste hat folgenden Spalten-Aufbau:

Spalte A: Artikelnummer (Aufbau: 100.11.22.111.111.111.111)
Spalte B: Preis (soll unter bestimmten Voraussetzungen gefüllt werden.)

Spalte C2: Wert (Preis) für Preiskategorie I
Spalte D2: Wert (Preis) für Preiskategorie II
Spalte E2: Wert (Preis) für Preiskategorie III
Spalte F2: Wert (Preis) für Preiskategorie IIII

Jetzt würde ich gerne, anhand der letzten 4 Blöcke der Artikelnummer (100.11.22.111.111.111.111) über eine Formel den Preis füllen.

- solange sich nur der letzte Block (100.11.22.111.111.111.111) ändert, soll Spalte B (Preis) mit Wert aus Spalte C2 Wert (Preis) für Preiskategorie I gefüllt werden
- sobald sich die letzten beiden Blöcke 100.11.22.111.111.111.111 ändern, soll Spalte B (Preis) mit Wert aus Spalte D2 Wert (Preis) für Preiskategorie II gefüllt werden
- sobald sich die letzten drei Blöcke 100.11.22.111.111.111.111 ändern, soll Spalte B (Preis) mit Wert aus Spalte E2 Wert (Preis) für Preiskategorie III gefüllt werden
- sobald sich die letzten vier Blöcke 100.11.22.111.111.111.111 ändern, soll Spalte B (Preis) mit Wert aus Spalte F2 Wert (Preis) für Preiskategorie IIII gefüllt werden

Ist das über eine Excel-Formel möglich?

Ich freue mich auf Eure Rückmeldungen.

Public Function GetPrice(rng As Range)
    Set regex = CreateObject("vbscript.regexp")  
    regex.Pattern = "([^\.]+)\.([^\.]+)\.([^\.]+)\.([^\.]+)$"  
    Set matches = regex.Execute(rng.Value)
    If matches.Count > 0 Then
        block1 = matches(0).submatches(0)
        block2 = matches(0).submatches(1)
        block3 = matches(0).submatches(2)
        block4 = matches(0).submatches(3)
        If block1 = block2 And block1 = block3 And block1 = block4 Then
            GetPrice = Application.Caller.Offset(0, 1).Value
        ElseIf block1 = block2 And block1 = block3 Then
            GetPrice = Application.Caller.Offset(0, 2).Value
        ElseIf block1 = block2 Then
            GetPrice = Application.Caller.Offset(0, 3).Value
        Else
            GetPrice = Application.Caller.Offset(0, 4).Value
        End If
    End If
End Function

=GetPrice(A2)