Set fso = Nothing
' DeclareDim oText As StringDim oNumber As IntegerDim oCheck As Boolean oText = Nothing ' Asign NULLoNumber = Nothing ' Asign 0oCheck = Nothing ' Asign FALSE