determine the output displayed when the button is clicked

Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim dt As Date = #12/4/2016# txtOutput.Text = MonthAbbr(dt) End Sub

Function MonthAbbr(dt As Date) As String Dim str As String = dt.ToString("D") Dim n As Integer = str.IndexOf(" ") Return str.Substring(n + 1, 3) End Function