Private Sub Text1_Change()
    If Len(Text1.Text) = 5 Then
        If Left$(Text1.Text, 4) = "6553" And Right$(Text1.Text, 1) > 5 Then
            Text1.Text = Mid$(Text1.Text, 1, 4) & "5"
        ElseIf Left$(Text1.Text, 4) > "6553" Then
            Text1.Text = Mid$(Text1.Text, 1, 4)
        End If
        Text1.SelStart = Len(Text1.Text)
    End If
End Sub