Dim x As String
x = "30 34 35"
Debug.Print Lcr(x)
x = "3A 20 34 35 4D 36"
Debug.Print Lcr(x)
End Sub
Function Lcr(ByVal s As String) As String
Dim sa, i As Integer, sum As Long
sa = Split(s)
For i = 0 To UBound(sa)
sum = sum + ("&H" & sa(i))
Next
Lcr = Hex((sum And 255 Xor 255) + 1)
End Function
