Paste TextBox value to worksheet with specific format

[Patrick C. Simonds]

How can I make the result placed in rng(1, 13) have the format of
mm/dd/yy? the format of Textbox4 is ddd mmm dd yy.

Private Sub CommandButton1_Click()

Dim rng
Set rng = Cells(ActiveCell.Row, 1)

rng(1, 13).Value = TextBox4.Value 'Date of Contact

Unload Me

End Sub

 

[JLGWhiz]

Try this Patrick. Excel does not like the name of the day as part of the
date group.

rng(1, 13) = Format(Mid(TextBox4.Value, 5), "mm/dd/yy")