各位大神 求助 VBA如何实现使用扫描枪保存数据到excel？

qbasic123

现想要制作一个小程序 一个普通画面 要求通过扫描枪扫描输入 一天一千多条条形码 而且不是重复 如果重复了不会保存在excel表里面 还要要求输入的二维码前面一段数据要和第一个输入的条形码前段数据一样 如第一个数据：8sst58c25060w 后面的数据前面一定要8sst58c开头的才能输入到excel 如果不是就提示条形码出错 还要保存到excel表将以当天日期和时间命名。求助各位大哥 应如何实现？

现实现了扫描枪输入代码如下：
Dim bcr As Boolean

Private Sub Label1_Click()

End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
        bcr = True
        Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1) = TextBox1.Text
    ElseIf bcr = True Then
        bcr = False

        TextBox1.Text = ""
    Else

    End If
End Sub

和THISWORKBOOK 使重复的不能输入到excel表代码如下：
Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
Dim sh1 As Worksheet
Set sh1 = Target.Worksheet
Dim tempvalue As String
tempvalue = Target.Value
Dim F As WorksheetFunction
Set F = WorksheetFunction
If F.CountIf(sh1.UsedRange, tempvalue) > 1 Then
Target = ""
Target.Select
End If
End Sub


就是如何要求输入的二维码前面一段数据要和第一个输入的条形码前段数据一样 如第一个数据：85791125 后面的数据前面一定要8579开头的才能输入到excel 如果不是就提示条形码出错 还要保存到excel表将以当天日期和时间命名这两个应该如何实现 还希望能在画面上显示扫描进excel的条形码有多少条 求大神们帮忙 以上 先谢过各位大神了！

qbasic123

高手在哪里啊 在线等。。。