Private Sub Form_Load()
  Me.Caption = GetDoY() & ". Tag im Jahr"
End Sub
 
Private Function GetDoY() As String
  Dim Jahr As Integer, FoY As Date
 
  Jahr = Year(Now)
  FoY = "1.1." & Jahr
 
  GetDoY = DateDiff("d", FoY, Now()) + 1
End Function

Gruß
Marcus