Grr, hoe lees ik een gedeelte van een string uit?

[Techneut]

Misschien heel simpel, maar ik breek m'n nek erover.

Dim PostInvoer as string
Dim PostNaam as string

PostInvoer = "ZAGSV01 Zagreb (Kroatie)"
-> Wat ik wil is: PostNaam = "Zagreb"

Hoe zet/krijg ik nu het woord Zagreb nu in PostNaam?

Thnx a lot.

 

[Harry46]

Dat kan als Postinvoer altijd aan dezelfde regels voldoet:
b.v. naam begint na 8 posities of naam begint na spatie, en 1ste teken na naam is altijd een (

Voorbeeld:
naam begint na spatie en wordt afgesloten met (
dim iPos1 as integer
dim iPos2 as integer
iPos1=Instr(Postinvoer," ") 'zoek spatie
iPos2=Instr(Postinvoer,"(") 'zoek haakje
Postnaam=Mid$(Postinvoer,iPos1 + 1,iPos2-iPos1-1)