Function LastNumber(strNumber) 'As String
'Returns the last number in a string. For example
'"1423 Sunrise Suite 2 Rancho Cordova, CA 95642" returns "95642"
'If there are no numbers, an empty string is returned.
Dim strBuffer
Dim intCounter
Dim blnNumeric
	strBuffer = ""
	blnNumeric = False
	For intCounter = Len(strNumber) to 1 Step -1
		If IsNumeric(Mid(strNumber, intCounter, 1)) Then
			blnNumeric = True
			strBuffer = Mid(strNumber, intCounter, 1) & strBuffer
		Else
			If blnNumeric Then Exit For
		End If
	Next
	LastNumber = strBuffer
End Function