Input Box date variable

[mcranmoss]

I'm attempting to change to top procedure to enable the start date to be populated via a user Input box.

any advice welcome

Mark

Sub DateC()
    
    Dim clsFDate As CFDate
 
    Set clsFDate = New CFDate
    clsFDate.CName = "Solus1"
    clsFDate.Rate = 15
    clsFDate.StartDate = #5/20/2012#
 
 
    MsgBox clsFDate.CName & " mails on " & Format$(clsFDate.MailingDate, "dd/mm/yy")
 
End Sub
 

Sub DateC()
    
    Dim clsFDate As CFDate
 
    Set clsFDate = New CFDate
    clsFDate.CName = "Solus1"
    clsFDate.Rate = 15
    clsFDate.StartDate = x
 
    InputBox ("Start Date")
    
    MsgBox clsFDate.CName & " mails on " & Format$(clsFDate.MailingDate, "dd/mm/yy")
 
End Sub