Dim v as String = “20141231”
Dim y As Integer = v.substring(2,2)
http://www.foxtable.com/help/topics/1421.htm