Remove all text but one word with VBscript
===

I have a line of text that is an address: 1234 N. Main Street Atlanta 30000 Georgia

I want the only text remaining to be Georgia. What is the VBscript to do this? I am new to VBscripting but not to coding. Thanks!