Imports System.IO Module Module1 Sub Main() Dim FileStr As StreamWriter System.Diagnostics.Debug.Assert(Not (FileStr Is Nothing), "FileStr is NULL") System.Diagnostics.Debug.Assert(Directory.Exists("\Temp"), "\Temp does not exist") End Sub End Module