The below code will do so
Namespace ConsoleApplication1
Class Program
Private Shared Sub Main(args As String())
Dim fromDate As DateTime = Convert.ToDateTime("3/17/2016")
Dim ToDate As DateTime = Convert.ToDateTime("3/21/2016")
Dim totalDays = (ToDate - fromDate).TotalDays+1
End Sub
End Class
End Namespace