Een sting uiteen laten vallen?

[madref]

ik heb bijvoorbeeld de volgende string:

MyString = "Wed_ID=9;Scheids1=10;Scheids2=3;Scheids3=0"

Hoe schrijf ik dan een funktie die als input heeft de naam van de variabele die ik wil hebben (Bijv: Wed_ID)
en die als uitkomst geeft "9"

het aanroepen gaat dan:
MyWed_ID = GetPrmValue ("MyString, Wed_ID")

 

[madref]

Ben er uitgekomen met behulp van een andere website;
De volgende code werkt prima:

GetPrmValue = Mid(str, InStr(1, str, Parm) + 1 + Len(Parm), _
              InStr((InStr(1, str, Parm) + 1 + Len(Parm)), str, ";") - (InStr(1, str, Parm) + 1 + Len(Parm)))

Bedankt voor het bekijken