Private Sub UserForm_Initialize()
Dim a As Long
    With LBNKData
        For a = 39234 To 39447
            .AddItem Format(a, "yyyy-mm-dd")
        Next a
        For a = 0 To .ListCount - 1
            If CDate(.List(a)) = Date Then
               Exit For
            End If
        Next a
        ' w ogólnym przypadku...jesli jestes pewien ze jest ta pozycja pomin
        If a <= .ListCount - 1 Then
            .Selected(a) = True
            .TopIndex = a
        Else
            .Selected(0) = True
            .TopIndex = 0
        End If
    End With
End Sub

Private Sub UserForm_Initialize()
Dim a As Long
For a = 39234 To 39447
  LBNKData.AddItem Format(a, "yyyy-mm-dd")
Next a
For a = 0 To LBNKData.ListCount - 1
  If CDate(LBNKData.List(a)) = Date Then
    Exit For
  End If
Next a
LBNKData.Selected(a) = True
End Sub