Imports System
Class Program
Public Shared Sub SetName(ByVal name As String)
If String.IsNullOrWhiteSpace(name) Then
Throw New ArgumentNullException(NameOf(name), "Name cannot be null or empty.")
End If
Console.WriteLine($"Name set to {name}")
End Sub
Public Shared Sub Main()
SetName("")
End Sub
End Class
' run:
'
' Unhandled exception. System.ArgumentNullException: Name cannot be null or empty. (Parameter 'name')
' at Program.SetName(String name)
' at Program.Main()
'