Formatting Issues User Form

[raccoon588]

I have a user form with the following code

Private Sub CmbStarting_Change()


LblDayOne.Caption = Format(CmbStarting.Value, "D-MMM-YYYY")
LblDayTwo.Caption = Format(CmbStarting.Value + 1, "D-MMM-YYYY")
LblDayThree.Caption = Format(CmbStarting.Value + 2, "D-MMM-YYYY")
LblDayFour.Caption = Format(CmbStarting.Value + 3, "D-MMM-YYYY")
LblDayFive.Caption = Format(CmbStarting.Value + 4, "D-MMM_YYYY")
LblDaySix.Caption = Format(CmbStarting.Value + 5, "D-MMM-YYYY")
LblDaySeven.Caption = Format(CmbStarting.Value + 6, "D-MMM-YYYY")
'CmbStarting.Value = Format(CmbStarting.Value, "D-MMM-YYYY")
End Sub

I currently have the CmbStarting line as a comment because when i run this i get an error. If i leave that line out it runs perfectly. How do i get the combo box to be the same format?

 

[Roderick_E]

CmbStarting.TEXT = Format(CmbStarting.Value, "D-MMM-YYYY") maybe?