Hello

From my searches, this has been beaten to death, but I still can't get it to work.

I have TextBox that the user enters a date as 8/6 and I want it to return the date format as 8-Jun-11 in the LinkedCell

This is the code I have for the process so far. All i want to do at this point is have the date formatted as above in the LinkedCell of TextBox1.

Thank you

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)


    If KeyCode = 9 Then
    ComboBox1.Activate
    End If
    End Sub
    

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 9 Then
    ComboBox2.Activate
    End If

End Sub
Private Sub ComboBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 9 Then
    ComboBox3.Activate
    End If

End Sub
Private Sub ComboBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 9 Then
    TextBox1.Activate
    TextBox1.LinkedCell = Range(TextBox1.LinkedCell).Offset(1).Address
    ComboBox1.LinkedCell = Range(ComboBox1.LinkedCell).Offset(1).Address
    ComboBox2.LinkedCell = Range(ComboBox2.LinkedCell).Offset(1).Address
    ComboBox3.LinkedCell = Range(ComboBox3.LinkedCell).Offset(1).Address

    
    End If

End Sub