--For converting to proper case try the below

Dim intTemp as Integer, strTemp as String

For intTemp = 1 to 10
strTemp = strTemp & " " StrConv(Me.Controls("TextBox" & _
intTemp),vbProperCase)
Next
LastRow.Offset(0, -1).Value = Trim(strTemp)


-- You can display a default format for this text box
Private Sub UserForm_Initialize()
Me.TextBox1 = Format(Date, "dd-mm-yyyy")
End Sub


If this post helps click Yes
---------------
Jacob Skaria


"Jock" wrote:

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