[Resolvido]Formulario Inicia um novo código

Boa tarde! Pessoal,
Essa é minha primeira postagem no Grupo!
Venho pedi uma ajuda aos mestres.
Tenho um formulário de controle de leitos, fiz um código vba e inserir no Evento ao carregar:

If Me.Data_alta > 0 Then
       Me.Dias_internado = Me.Data_alta - Me.Data_admissao
       Else
       Me.Dias_internado = Date - Me.Data_admissao
       End If
       
If Me.Dias_internado <= 7 Then
Me.Mensagem = "PERMANÊNCIA IDEAL"
Me.Mensagem.ForeColor = vbBlack
Me.Mensagem.BackColor = vbGreen
End If
If Me.Dias_internado > 7 Then
Me.Mensagem = "PERMANÊNCIA ALERTA!"
Me.Mensagem.ForeColor = vbBlack
Me.Mensagem.BackColor = vbYellow
End If
If Me.Dias_internado > 10 Then
Me.Mensagem = "PERMANÊNCIA ULTRAPASSADA!"
Me.Mensagem.ForeColor = vbWhite
Me.Mensagem.BackColor = vbRed
End If

O problema é quando abro o formulário ele já inicia com um novo registo, tem alguma forma de corrigir?
Agradeço a atenção dos professores.

Obrigado professor!
resolvido