肝心なサンプルコードのポイント部分が英語のままなので、参考までに以下に示します。
Dim ts As testStruct, i As Integer, b As Boolean
ts = Nothing
' 前のステートメントは ts.name を"" に、 ts.number を0にセットします。
i = Nothing
b = Nothing
' 前のステートメントは i を 0 にそして b を False にセットします。
Dim testObject As Object
testObject = Nothing
' 前のステートメントは testObject をどのインスタンスも参照しないようにセットします。
なお、Date型の値にNothingを設定すると、初期値の 0001/01/01 0:00:00 になります。