Bom dia!!

Poste seu arquivo modelo!!
Use a pesquisa do fórum!
http://www.google.com.br/cse?cx=partner ... gsc.page=1

Att

Miguel 70,

Bom Dia!

Para evitar que o usuário digite a barra na data, na caixa de texto onde será inserida a data, coloque o código abaixo no evento KeyPress da mesma (supondo que sua caixa de texto se chama Txt_Data:

Private Sub Txt_Data_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    'Verifica qual é o caracter digitado na caixa de texto. Aceita somente _
    números, o hífem (-) e o backspace
    If Not (KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 8 Or KeyAscii = 45) Then
       KeyAscii = 0
    End If
End Sub

Para carregar o ComboBox1. com os valores que você quer faça assim:

Me.ComboBox1.AddItem = "DIURNO"
Me.ComboBox1.AddItem = "NOTURNO" 

Deu erro somente aqui não quer carregar comboBox1 com as duas opção
Me.ComboBox1.AddItem = "DIURNO"
Me.ComboBox1.AddItem = "NOTURNO"

http://www.4shared.com/file/gVtwJ1Cpba/Exemplo.html

Miguel,

Desculpe. O Erro foi todo meu. É porque não testei. Não existe esses sinais de igual nas linhas de comando. Use este código:

Me.ComboBox1.AddItem "DIURNO"
Me.ComboBox1.AddItem "NOTURNO"

Ótimo Wagne Morel,

OBRIGADO.