omskriv private sub til public function

Hej,
Jeg har en database hvor jeg ønsker at oprette "skrivebeskyttelse" som skal sikre at indtastninger ikke ændres ved en fejl. Jeg har lavet følgende stump kode, men hvordan laver jeg koden om til en public function så jeg kan bruge det på alle felter uden at skulle indsætte koden ved hvert felt??

Dim prompt As String, Response As Integer

DoCmd.SetWarnings False

If Me.NewRecord Then

Else

If IsNull(Me.FELT) = True Then

Else

Response = acDataErrContinue
   
    prompt = "Vil du ændre denne indtastning?"
    If MsgBox(prompt, vbYesNo, "Ændring af indtastning?") = vbNo Then
               
    DoCmd.CancelEvent
    Me.undo
   
    Response = acDataErrAdded
    Else
   
        End If
        End If
        End If