Sub AsciiToHex (a As String) As String
Dim bc As ByteConverter
Dim barray(0) As Byte
Dim one As String
Dim two As String
Dim three As String
Dim four As String
barray = bc.HexToBytes(a)
Dim targetLength As String
ConvertedToString = bc.StringFromBytes(barray,("ASCII"))
one = sf.Mid(ConvertedToString, 1, 4)
two = sf.Mid(ConvertedToString, 4, 4)
three = sf.Mid(ConvertedToString, 8, 4)
four = sf.Mid(ConvertedToString, 12, 4)
ConvertedToString = one & " " & two & " " & three & " " & four
End Sub