Hi
How can I code proper case to text boxes on a user form?
Here's the code to adapt; all text boxes to be formatted the same:

Private Sub CommandButton2_Click()
Dim LastRow As Object
Set LastRow = Sheet1.Range("f4000").End(xlUp)

LastRow.Offset(0, -1).Value = TextBox1.Text & " " & TextBox2.Text & " "
& TextBox3.Text & " " & TextBox4.Text _
& " " & TextBox5.Text & " v " & TextBox6.Text & " " & TextBox7.Text & "
" & TextBox8.Text & " " & TextBox9.Text _
& " " & TextBox10.Text 'copies text box data to cell
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""

Me.Hide
End Sub

On another user form, the date needs to be input by the user. Can an input
mask be added to a particular text box to ensure users all enter the date in
the same way?

Thanks,
--
Traa Dy Liooar

Jock