[vb.net] One line if in VB .NET