Private Overloads Sub Foo(ByVal i As Integer) Foo(i, DateTime.MinValue) End Sub Private Overloads Sub Foo(ByVal i As Integer, ByVal d As Date) ' code here End Sub