Не правильно выводит на печать пол

Function FuncNewData(S1 As String, S2 As String, ByVal NewData As String, Response As Integer)
 Response = FuncResponse(S1, S2, NewData)
 If Response = acDataErrContinue Then
  Exit Function
 End If
 Call FuncNotInList(S1, S2, NewData)
End Function
 
Function FuncResponse(S1 As String, S2 As String, ByVal S3 As String) As Integer
 Dim L As Integer
 If MsgBox("Новое значеие:" & vbCrLf & S3 & vbCrLf & _
           "Добавить в справочник?", vbYesNo, FuncMsgTitle) = vbNo Then
  FuncResponse = acDataErrContinue
  Exit Function
 End If
 L = CurrentDb.TableDefs(S1).Fields(S2).Size
 If Len(S3) > L Then
  MsgBox "Длина введенной строки превышает" & vbCrLf & _
         "допустимый максимум - " & L & " символов !!!" & vbCrLf & _
         "Для увеличения допустимого предела" & vbCrLf & "обращайтесь к разработчику", _
         vbExclamation + vbOKOnly, FuncMsgTitle
  FuncResponse = acDataErrContinue
 Else
  If InStr(S3, "ё") > 0 Then
   MsgBox "Не используйте букву Ё !!! Замените на Е !!!", _
          vbExclamation + vbOKOnly, FuncMsgTitle
   FuncResponse = acDataErrContinue
  End If
 End If
End Function
 
Function FuncNotInList(S1 As String, S2 As String, ByVal S3 As String)
 Dim Rst As Recordset
 Set Rst = CurrentDb.OpenRecordset(S1)
 With Rst
  .AddNew
  Rst(S2) = StrConv(Left(Trim(S3), 1), vbProperCase) & Mid(Trim(S3), 2)
  .Update
  .Close
 End With
 Set Rst = Nothing
End Function