Private Sub BindingNavigatorAddNewItem_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles BindingNavigatorAddNewItem.Click
        Me.JahrTextBox.Text = Format(Now(), "yyyy")
        cbbMonat_füllen()
        Me.cbbMonat.Text = Format(Now(), "MM")
 
        MessageBox.Show(Format(Now(), "yyyy") & " / " & Format(Now(), "MM"))
    End Sub
 
    Sub cbbMonat_füllen()
        Dim i As Integer
 
        With cbbMonat
            .BeginUpdate()
 
            For i = 1 To 12
                Me.cbbMonat.Items.Add(Format(i, "00"))
            Next i
 
            .EndUpdate()
 
        End With
    End Sub

Wer aufhört sich zu verbessern, hört auf gut zu sein.