det funkar inte men om du andra den

du får

Group SA number:
Card UA number:

Dim Choice
Dim Groupnr
Dim Cardnr
Dim n
Dim menuFlag
Dim CheckSmartcardSettings
Call SmartcardSettings
Function hex2(i)
tmpStr = Hex(i)
If Len(tmpStr) = 1 Then
tmpStr = "0" & tmpStr
End If
hex2 = tmpStr
End Function
Sub Main()
sc.reset
Sc.Reset
Sc.Print ("" & vbCr)
Sc.Print ("INS, DD C6" & vbCr)
sc.write ("DD C6 00 00 03 ")
sc.read (1)
sc.write ("1c 01 00")
sc.read (2)
sc.write ("dd c6 00 00 93")
sc.read (1)
sc.write ("dd ca 00 00 f5")
sc.read (1)
sc.write ("dd ca 00 00 93")
sc.read (2)
sc.write ("DD C6 00 00 03 ")
sc.read (1)
sc.write ("1b 01 40")
sc.read (2)
sc.write ("dd ca 00 00 6a")
sc.read (1)
Sc.Reset
Sc.Print ("" & vbCr)
Sc.Print ("INS, CA A4 " & vbCr)
sc.write ("ca a4 02 00 00")
sc.read (2)
sc.write ("ca c0 00 00 1f")
sc.read (1)
Sc.Reset
Sc.Print ("" & vbCr)
Sc.Print ("INS, DD 26" & vbCr)
sc.write ("DD 26 00 00 03")
sc.read (1)
sc.write ("10 01 40")
sc.read (2)
sc.write ("DD CA 00 00 11")
sc.read (2)
sc.read (3)
Sc.Reset
Sc.Print ("" & vbCr)
Sc.Print ("INS, DD 82" & vbCr)
Sc.Print ("String" & vbCr)
Sc.write ("DD 82 00 00 14")
Sc.read (1)
Sc.write ("11 12 01 F0 0F FF FF FD 00 00 09 04 0B 00 E0 30 0E 6F CC 7E")
Sc.delay (2000)
Sc.read (2)
Sc.write ("DD CA 00 00 1A")
Sc.read (29)
Sc.Reset
For n = 14 To 17
Cardnr = Cardnr & hex2(Sc.GetByte(n))
Next
For n = 24 To 26
Groupnr = Groupnr & hex2(Sc.GetByte(n))
Next
Sc.Print ("Group SA number: " & Groupnr & vbCr)
Sc.Print ("Card UA number: " & Cardnr & vbCr)
Cardnr = ""
Groupnr = ""
Sc.Print ("" & vbCr)
End Sub
Sub SmartcardSettings()
ComPort = Sc.InputBox("Phoenix-interface on port? ", "Config Com Port", 1)
If ComPort = "" Then
CheckSmartcardSettings = 1
Exit Sub
End If
Sc.Print (vbCr & "- config WinExplorer..." & vbCr)

End Sub