Visual Basic - String von x bis y auslesen

[Jörg Lorenz]

Moin,

wie kann ich in einem String

(z.B. akakakakakaka-Z1-bcbcsuwuwfdpf-Z2-uuuuuuuuuu)
nach z.B. "-Z1-" und "-Z2-" suchen und alles dazwischen in einen neuen String schreiben (also bcbcsuwuwfdpf)? (Also Anfangs- und Endpunkt).

z. B. so:

strText = "akakakakakaka-Z1-bcbcsuwuwfdpf-Z2-uuuuuuuuuu"
intA = InStr(1, strText, "-Z1-") + 4
intB = InStr(1, strText, "-Z2-")
strText = Mid(strText, intA, intB - intA)

Viele Grüße

Jörg