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