If IsNull(Me.Voto_01.Value) And Not IsNull(Me.Voto_02.Value) And Right(Me.[Voto_02], 3) = "4,0" Then
Me.[Voto_01].value = "01-4,0" And Me.[Voto_02].value = "" 
End If