Visual Basic - EXTRAER CADENA

Como puedo extraer un determinado texto de una cadena de la cual no se la longitud exacta, por ejemplo, como puedo sacar todo lo que va a continuación del punto de esta cadena: "100.ANTONIO PABLO PEDRO"

Gracias de antemano

dim iPos%
iPos=instr(1,scadena,".")
if ipos>0 then
dim sNuevaCadena$
sNuevaCadena = mid(scadena,ipos+1)
endi f