if you look in help at val, you see it stops when it hits the first hyphen.

use cdate instead

StrRangeDate = cdate(txtRangeDate.Text)

however, if you are going to put it into a string variable with no change in
formatting, why not just do

StrRangeDate = txtRangeDate.Text

You haven't added a step to write anything to the spreadsheet form.

Activesheet.Range("B9").Value = StrRangeDate

for example.

--
Regards,
Tom Ogilvy


"HarryJ" wrote:

I have just completed a weeks crash course in VBA programming and would like
to use some of the knowledge I was supposed to learn; however, it isn't
working to well.

We have an Excel spreadsheet that the company requires us to use. It fills
in the names of personnel attending training depending on which shop the are
assigned to. An Excel form was created to input the names and works great.
However, the trainers would like to make the forms up in advance and want to
input a date on the form and have it transfer to the spreadsheet before it
prints.

I have tried to do this, but can't get it to work. The coding so far that
is not working for me is:
Private Sub Execute_Click()
'declare variables
Dim StrRangeDate As String
Dim sht8253Form As Worksheet
Set sht8253Form = Application.Workbooks("OTD
F8253.xls").Worksheets("8253 Form")
'Assign user input txtRangeDate to variables
StrRangeDate = Val(txtRangeDate.Text)
MsgBox (StrRangeDate)

What happens is the if we input "10-21-06" all that shows up in the MsgBox
is 10.
And when we print the spreadsheet form, nothing appears.

Help Please!