date formatting in userform

i have a number of textboxes where i input dates or not but i would like dates to be DD/MM/YY not MM/DD/YY i dont fill all boxes so sometimes have blanks and when i fill in boxes a may delete date if that person no longer have
any help would be good

Private Sub save_Click()

Dim iRow As Long
Dim ws As Worksheet
Sheets("Data").Unprotect password:=""
Set ws = Worksheets("Data")

iRow = Range(Me.TextBox7).Row

  'check for a name
If Trim(Me.TextBox1.Value) = "" Then
  Me.TextBox1.SetFocus
  MsgBox "Please enter a first name"
  Exit Sub
  Else: Me.TextBox1.Value = Me.TextBox1.Value
End If

'copy the data to the database
ws.Cells(iRow, 1).Value = Me.TextBox1.Value
ws.Cells(iRow, 2).Value = Me.TextBox2.Value
ws.Cells(iRow, 3).Value = Me.Num1.Value
ws.Cells(iRow, 4).Value = Me.TextBox8.Text
ws.Cells(iRow, 5).Value = Me.Num2.Value
ws.Cells(iRow, 6).Value = (Me.TextBox9.Text)
ws.Cells(iRow, 7).Value = Me.Num3.Value
ws.Cells(iRow, 8).Value = (Me.TextBox10.Text)
ws.Cells(iRow, 9).Value = Me.Num4.Value
ws.Cells(iRow, 10).Value = (Me.TextBox11.Text)
ws.Cells(iRow, 11).Value = Me.Num5.Value
ws.Cells(iRow, 12).Value = (Me.TextBox12.Text)
ws.Cells(iRow, 13).Value = Me.Num6.Value
ws.Cells(iRow, 14).Value = (Me.TextBox13.Text)
ws.Cells(iRow, 15).Value = Me.Num7.Value
ws.Cells(iRow, 16).Value = (Me.TextBox14.Text)
ws.Cells(iRow, 17).Value = Me.Num8.Value
ws.Cells(iRow, 18).Value = (Me.TextBox15.Text)
ws.Cells(iRow, 19).Value = Me.Num9.Value
ws.Cells(iRow, 20).Value = (Me.TextBox16.Text)
ws.Cells(iRow, 21).Value = Me.Num10.Value
ws.Cells(iRow, 22).Value = (Me.TextBox17.Value)
ws.Cells(iRow, 23).Value = Me.Num11.Value
ws.Cells(iRow, 24).Value = (Me.TextBox18.Value)
ws.Cells(iRow, 25).Value = Me.Num12.Value
ws.Cells(iRow, 26).Value = (Me.TextBox19.Value)
ws.Cells(iRow, 27).Value = Me.Num13.Value
ws.Cells(iRow, 28).Value = (Me.TextBox20.Value)
ws.Cells(iRow, 29).Value = Me.Num14.Value
ws.Cells(iRow, 30).Value = (Me.TextBox21.Value)
ws.Cells(iRow, 31).Value = Me.Num15.Value
ws.Cells(iRow, 32).Value = (Me.TextBox22.Value)
ws.Cells(iRow, 33).Value = Me.Num16.Value
ws.Cells(iRow, 34).Value = (Me.TextBox23.Value)
ws.Cells(iRow, 35).Value = Me.Num17.Value
ws.Cells(iRow, 36).Value = (Me.TextBox24.Value)
ws.Cells(iRow, 37).Value = Me.Num18.Value
ws.Cells(iRow, 38).Value = (Me.TextBox25.Value)
    

'ws.Cells(iRow, 11).Value = Me.TextBox8.Value



 Sheets("Data").Protect password:=""
 Me.hide
 Unload Me
    UserForm3.Show

End Sub

sorry i cant get it working if i use Cdate it works if i fill in the box but if that box is blank it showa error, its showing it right on the userform but not in excel sheet i have formatted the excel sheet to uk DD/MM/YY
this is what i have done to the code it really doing my head in i did try and upload file but did not work

ws.Cells(iRow, 1).Value = Me.TextBox1.Value
ws.Cells(iRow, 2).Value = Me.TextBox2.Value
ws.Cells(iRow, 3).Value = Me.Num1.Value
ws.Cells(iRow, 4).Value = Format(Me.TextBox8.Value, "DD/MM/YY")
ws.Cells(iRow, 5).Value = Me.Num2.Value
ws.Cells(iRow, 6).Value = Format(Me.TextBox9.Value, "DD/MM/YY")
ws.Cells(iRow, 7).Value = Me.Num3.Value
ws.Cells(iRow, 8).Value = Format(Me.TextBox10.Value, "DD/MM/YY")
ws.Cells(iRow, 9).Value = Me.Num4.Value
ws.Cells(iRow, 10).Value = Format(Me.TextBox11.Value, "DD/MM/YY")
ws.Cells(iRow, 11).Value = Me.Num5.Value
ws.Cells(iRow, 12).Value = Format(Me.TextBox12.Value, "DD/MM/YY")
ws.Cells(iRow, 13).Value = Me.Num6.Value
ws.Cells(iRow, 14).Value = Format(Me.TextBox13.Value, "DD/MM/YY")
ws.Cells(iRow, 15).Value = Me.Num7.Value
ws.Cells(iRow, 16).Value = Format(Me.TextBox14.Value, "DD/MM/YY")
ws.Cells(iRow, 17).Value = Me.Num8.Value
ws.Cells(iRow, 18).Value = Format(Me.TextBox15.Value, "DD/MM/YY")
ws.Cells(iRow, 19).Value = Me.Num9.Value
ws.Cells(iRow, 20).Value = Format(Me.TextBox16.Value, "DD/MM/YY")
ws.Cells(iRow, 21).Value = Me.Num10.Value
ws.Cells(iRow, 22).Value = Format(Me.TextBox17.Value, "DD/MM/YY")
ws.Cells(iRow, 23).Value = Me.Num11.Value
ws.Cells(iRow, 24).Value = Format(Me.TextBox18.Value, "DD/MM/YY")
ws.Cells(iRow, 25).Value = Me.Num12.Value
ws.Cells(iRow, 26).Value = Format(Me.TextBox19.Value, "DD/MM/YY")
ws.Cells(iRow, 27).Value = Me.Num13.Value
ws.Cells(iRow, 28).Value = Format(Me.TextBox20.Value, "DD/MM/YY")
ws.Cells(iRow, 29).Value = Me.Num14.Value
ws.Cells(iRow, 30).Value = Format(Me.TextBox21.Value, "DD/MM/YY")
ws.Cells(iRow, 31).Value = Me.Num15.Value
ws.Cells(iRow, 32).Value = Format(Me.TextBox22.Value, "DD/MM/YY")
ws.Cells(iRow, 33).Value = Me.Num16.Value
ws.Cells(iRow, 34).Value = Format(Me.TextBox23.Value, "DD/MM/YY")
ws.Cells(iRow, 35).Value = Me.Num17.Value
ws.Cells(iRow, 36).Value = Format(Me.TextBox24.Value, "DD/MM/YY")
ws.Cells(iRow, 37).Value = Me.Num18.Value
ws.Cells(iRow, 38).Value = Format(Me.TextBox25.Value, "DD/MM/YY")

i managed to download file if anybody can have a look at this if you need to login to my system the username is username and password is password
thanks

all codes i am using is from bits off the web so if you can see a better way that would be good thanks

http://www.ozgrid.com/forum/showthread.php?t=192541

can anyone help please? I have inserted an exemple above.
Thanks

thanks Norie that solution did not work

i would like to thank everyone that helped i have found the solution all i needed to do was change "DD/MM/YY") to "DD/MMM/YYYY") and it works perfect,