Usa MID,

Dim Cap
Dim Citta

Cap=Mid('00100 roma(rm)',1,5)
Citta=Mid('00100 roma(rm)',6,10)

Ciao...

Le stringhe sono regolarizzate?
Cioè si hanno sempre e solo quei 2 casi (con prima il CAP poi la CITTA e viceversa)?

00100 roma(rm)

oppure

roma 00100

Se la stringa è composta solamente da questi due valori (città,cap) e gli esempi che hai riportato
'-----------------------------
>00100 roma(rm)
>oppure
>roma 00100
'------------------------------
sono il 100% dei tuoi possibili con lo spazio sempre presente puoi:

'spezzare la stringa
Str = Split(Stringa," ")
'verificare se la prima non è un numero
If isnumeric(Str(0)) Then
Citta = Str(1)
Cap = Str(0)
Else
Citta = Str(0)
Cap = Str(1)
End If

Ciao