B4R Question String to Number (again)

    Dim st As String = "1234567" ' your string of decimal digits
    If st.Length Mod 2 <> 0 Then st = "0" & st ' correct string if odd length
    Dim d(st.Length/2) As Byte  ' the output byte array
    For a = 0 To st.Length -1 Step 2 ' work on every 2nd char
        Dim b,c As Byte
        'convert to single hex digit and shift left 4 bits
        b = Asc(st.CharAt(a))-0x30
        b = Bit.ShiftLeft(b,4)
        ' convert to single hex digit
        c = Asc(st.CharAt(a+1))-0x30
        ' or b with c to get 2 digit hex and put into array at a/2
        d(a/2) = Bit.Or(c,b)
    Next
    For x = 0 To d.Length -1
        Log(d(x))
    Next

 Sub DateStringToByteArray (st As String) as byte array
    If st.Length Mod 2 <> 0 Then ' correct string if odd length
        st = "0" + st
    End If
    '
    Dim d(st.Length/2) As byte  ' the output byte array
    '
    ' Loop through the given string 2 bytes at a time
    For a = 0 To st.Length -1 Step 2 ' work on every 2nd char
        '
        Dim b, c As byte
        '
        ' Convert charater 1 of the 2 character value to a number, reference back to vlaue 0 (ASC(48))
        b = BC.StringToBytes(st)(a) - 48
        '
        ' Multiple by 10
        b= b * 10
        '
        ' Convert character 2 of the 2 character value to a number, reference back to value 0 (ASC(48)
        c = BC.StringToBytes(st)(a+1) - 48
        '
        ' Now add the two values together to get the full 8 bit number in decimal
        d(a/2) = b + c
        '
    Next
    '
    Return d
    '
End Sub

 Sub DateStringToByteArray (st As String) As Byte()
    '
    If st.Length Mod 2 <> 0 Then ' correct string if odd length
        st = "0" + st
    End If
    '
    Dim d(st.Length/2) As Byte  ' the output byte array
    '
    ' Loop throgh the given string 2 bytes at a time
    For a = 0 To st.Length -1 Step 2 ' work on every 2nd char
        '
        d(a/2) = (BC.StringToBytes(st)(a) - 48)*10 + BC.StringToBytes(st)(a+1) - 48
        '
    Next
    '
    Return d
    '
End Sub