Format userform textbox

[redspanna]

Hi all

Private Sub UserForm_Activate()

        With Worksheets("database")
        TextBox2 = .Cells(.Rows.Count, "b").End(xlUp).Value
        
    End With
End Sub

How can I get the vale in my Textbox2 to be formatted as ddMmmyy?
thanks

 

[VoG]

Try

Private Sub UserForm_Activate()

        With Worksheets("database")
        TextBox2 = Format(.Cells(.Rows.Count, "b").End(xlUp).Value, "ddmmmyy")
        
    End With
End Sub

 

[redspanna]

Thank you!