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