Private Sub roTextBox1_KeyPress(Index As Integer, KeyAscii As Integer)
 
 
    Select Case Index
 
        Case 1, 2, 5, 7, 8, 9
            If KeyAscii = vbKeyReturn Then roTextBox1_ButtonClick Index, False
 
        Case 4
            If KeyAscii = vbKeyReturn Then
 
                    roTextBox1(4).Text = roTextBox1(4).ShowCalender
                Else
                    KeyAscii = 0
            End If
 
    End Select 'Select Case index
 
 
End Sub