유저폼 텍스트박스에서 바코드기로 QR 인식 할때 문자 짤림 현상 해결방법

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Static x As Integer
Static y As Integer

Dim xval As String
Dim yval As String
Dim day As Integer
Dim a As String: Dim b As Integer: Dim f As Range: Dim i As Integer

If Len(TextBox1.Value) <> 4 And Len(TextBox1.Value) <> 15 Then Exit Sub

If Len(TextBox1.Value) = 4 Then
    xval = TextBox1.Value
    x = 23 '보관위치(w):23
    
ElseIf TextBox1.Value = "개봉" Then
    x = 20

ElseIf TextBox1.Value = "폐기" Then
    x = 24

ElseIf Len(TextBox1.Value) = 15 Then
    yval = TextBox1.Value
    
    With ActiveSheet.UsedRange
        Set f = .Find(what:=yval, LookIn:=xlValues, lookat:=xlWhole)
        
        If Not f Is Nothing Then
        
        a = f.Address
        
        Do
            Set f = .FindNext(f)
            b = b + 1
        Loop While Not f Is Nothing And f.Address <> a
        y = f.Row
        
        End If
    End With
End If

If Not x = 0 And Not y = 0 Then
    
    If x = 23 Then
        Cells(y, x).Value = xval
        x = 0
        y = 0
    ElseIf x = 20 Or x = 24 Then
        Cells(y, x).Value = Date
        If x = 24 Then Cells(y, x).Office(, 1).Value = TextBox1.Value
        x = 0
        y = 0
    End If
    
End If

TextBox1.Text = ""

Application.SendKeys "{tab}"

End Sub