Visual Basic Offset Function